Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte einer aktiven (markierten) Zelle in eine bestimmte, andere Zelle einfügen[Excel
#11
Ich danke dir!! Ich glaube der Ansatz wird mir weiterhelfen. Bzgl. der KW-Nummerierung muss ich ne Alternative finden da hast du recht! Super, echt.
Antworten Top
#12
Gibt es ein paar coole Tutorials oder Lehrbücher, wo man VBA gut lernen kann? 
Da hab ich ein ziemliches Defizit und würde das ganze mal langsam angehen. Mathematisch check ich das, hatte auch schon mal Informatik mit Matlab etc. aber die Sprache kann ich irgendwie nicht lernen. Wäre cool wenn ihr da n paar Empfehlungen für mich haben würdet :) Danke nochmal
Antworten Top
#13
Und hier die Makrolösung.. Gebe dem Makro eine Tastenkombination, markiere den KW- Bereich und löse das Makro mit der Kombi aus...


mir hat der sehr geholfen:

https://www.excel-vba-lernen.de/

Der macht das klasse und Schritt für Schritt von Anfang an..

Code:
Sub Datensetzen()

On Error GoTo Ende

Bereich = Selection.Address
Bereichstart = Left(Bereich, InStr(Bereich, ":") - 1)
Bereichende = Right(Bereich, Len(Bereich) - InStr(Bereich, ":"))
       
ActiveSheet.Range("D14").Value = ActiveSheet.Range(Bereichstart).Value
ActiveSheet.Range("E14").Value = ActiveSheet.Range(Bereichende).Value

Nettowsr1 = Range(Bereichstart).Row + 5
Nettowsc1 = Range(Bereichstart).Column

Nettowsr2 = Range(Bereichende).Row + 5
Nettowsc2 = Range(Bereichende).Column


ActiveSheet.Range("D15").Value = ActiveSheet.Cells(Nettowsr1, Nettowsc1).Value
ActiveSheet.Range("E15").Value = ActiveSheet.Cells(Nettowsr2, Nettowsc2).Value

ActiveSheet.Range("D16").Value = WorksheetFunction.Sum(Range(Cells(Nettowsr1, Nettowsc1), Cells(Nettowsr2, Nettowsc2))) / 2

Ende:

End Sub
Eine Menge reden, aber nichts sagen können viele...
[-] Folgende(r) 1 Nutzer sagt Danke an Frogger1986 für diesen Beitrag:
  • GSSK54
Antworten Top
#14
Hier noch die Lösung mit Formel bei mehreren gleichen Werten... Die Hilfszeile hab ich ausgeblendet.. Zeile(1)

Ein gut gemeinten Rat habe ich noch... Lass in Bereichen, in denen Berechnungen statt finden, das Verbinden der Zellen! das führt ganz oft zu falschen Ergebnissen!!!
Eine Menge reden, aber nichts sagen können viele...
[-] Folgende(r) 1 Nutzer sagt Danke an Frogger1986 für diesen Beitrag:
  • GSSK54
Antworten Top
#15
ECHT VIELEN DANK!...
Das scheint ne Heidenarbeit zu sein, echt korrekt! Das erste was ich ab morgen machen werde, ist dass ich mir VBA beibringen werde. Danke für die wertvollen Tipps und die klasse Unterstützung.
Antworten Top
#16
Hallo,

Zitat:Das scheint ne Heidenarbeit zu sein, echt korrekt! Das erste was ich ab morgen machen werde, ist dass ich mir VBA beibringen werde. 

viel Spaß beim Beibringen :05: .
und weil nicht jeder mit Videos gut lernen kann, hier noch 'ne kleine Starthilfe und die Warnung, daß das was Du da jetzt tun willst ganz
schnell süchtig macht. Es weckt nämlich Begehrlichkeiten und Lust nach mehr  :19:


Angehängte Dateien
.pdf   VBA-Programmierung FernUni.pdf (Größe: 927 KB / Downloads: 4)
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
[-] Folgende(r) 1 Nutzer sagt Danke an Käpt'n Blaubär für diesen Beitrag:
  • Frogger1986
Antworten Top
#17
Ich hab noch zwei Fehler festgestellt die ich in der eile gestern gemacht habe! Im Anhang die Berichtigten Tabellen für beide Versionen! (Formel und VBA)

Code:
Sub Datensetzen()

On Error GoTo Ende

Bereich = Selection.Address
Bereichstart = Left(Bereich, InStr(Bereich, ":") - 1)
Bereichende = Right(Bereich, Len(Bereich) - InStr(Bereich, ":"))
       
ActiveSheet.Range("D14").Value = ActiveSheet.Range(Bereichstart).Value
ActiveSheet.Range("E14").Value = ActiveSheet.Range(Bereichende).Value

Nettowsr1 = Range(Bereichstart).Row + 7
Nettowsc1 = Range(Bereichstart).Column

Nettowsr2 = Range(Bereichende).Row + 7
Nettowsc2 = Range(Bereichende).Column


ActiveSheet.Range("D15").Value = ActiveSheet.Cells(Nettowsr1, Nettowsc1).Value
ActiveSheet.Range("E15").Value = ActiveSheet.Cells(Nettowsr2, Nettowsc2).Value

Diviesor = (Nettowsc2 + 1) - Nettowsc1

ActiveSheet.Range("D16").Value = WorksheetFunction.Sum(Range(Cells(Nettowsr1, Nettowsc1), Cells(Nettowsr2, Nettowsc2))) / Diviesor

Ende:

End Sub
Eine Menge reden, aber nichts sagen können viele...
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste