VBA-Code gesucht

Forumthread: VBA-Code gesucht

VBA-Code gesucht

06.06.2019 23:47:56

Onkel

Hallo Freunde,
ich suche den VBA-Code.
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann
Worksheets("Werte").Range("A1") = Worksheets("Berechnung").Range("B57")
Worksheets("Werte").Range("B1") = Worksheets("Berechnung").Range("C57")
Worksheets("Werte").Range("C1") = Worksheets("Berechnung").Range("D57")
Worksheets("Werte").Range("D1") = Worksheets("Berechnung").Range("E57")
Worksheets("Werte").Range("F1") = Worksheets("Berechnung").Range("F57")
Worksheets("Werte").Range("G1") = Worksheets("Berechnung").Range("G57")
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =2, dann
Worksheets("Werte").Range("A2") = Worksheets("Berechnung").Range("B57")
Worksheets("Werte").Range("B2") = Worksheets("Berechnung").Range("C57")
...
...
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =12, dann
Worksheets("Werte").Range("A12") = Worksheets("Berechnung").Range("B57")
...
Worksheets("Werte").Range("G12") = Worksheets("Berechnung").Range("G57")
Vielen Dank Uli

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Code gesucht

07.06.2019 00:04:06

Piet
AW: VBA-Code gesucht

07.06.2019 05:48:39

Martin
AW: VBA-Code gesucht

07.06.2019 22:30:31

Onkel
AW: VBA-Code gesucht

08.06.2019 22:39:36

Onkel

AW: VBA-Code gesucht

07.06.2019 00:04:06

Piet

Hallo Uli
bitte schau mal genau hin, du hast die Lösung doch selbst vorgegeben! Man muss sie nur sehen ....
Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann - aendere es wie unten im Beispiel Code:
Die genaue Spalte + Zeile musst du bitte selbst angeben. z.B. .Range("BLM3") = 3

Sub Makro1()
'    Wenn in Tabellenblatt "Berechnung".Zelle ("B_LM") =1, dann
If Worksheets("Berechnung").Range("BLM..") = 1 Then
End If
If Worksheets("Berechnung").Range("BLM..") = 2 Then
End If
If Worksheets("Berechnung").Range("BLM..") = 3 Then
End If
End Sub

AW: VBA-Code gesucht

07.06.2019 05:48:39

Martin

Hallo Uli,
mein Lösungsvorschlage sieht so aus:

Sub Beispiel()
Dim i As Integer, j As Integer
With Worksheets("Berechnung")
j = .Range("B_LM").Value
For i = 1 To 6
Worksheets("Werte").Range("A1").Cells(1, IIf(i

Hoffentlich ist dir bei deiner Beschreibung kein Fehler unterlaufen, denn laut deiner Beschreibung wird kein Wert aus Spalte E übernommen.
Viele Grüße
Martin

AW: VBA-Code gesucht

07.06.2019 22:30:31

Onkel

@ Piet Vielen Dank für Deine Antwort. Sie nimmt aber eine Menge Platz ein und ich suche etwas kürzeres.
Trotzdem Danke für Deine Hilfsbereitschaft.
@ Martin
Du hast recht und es sind Fehler drin. Hier noch einmal die korrigierte Beschreibung.
Ziel: Ich muß Monatswerte kummulieren.In der Zelle Worksheets("Berechnung").("B_LM")steht der Monat. Januar = 1 usw.
Mein Gedanke ist: kopiere die Zellen Worksheets("Berechnung")."A45",B_BL,"G34","G45","G46","G47","G48")für
Januar = 1 in die Worksheets("Werte").Zeile 1
Februar = 2, dann Worksheets("Werte").Zeile 2
März = 3, dann Worksheets("Werte").Zeile 3
Die Zellen, die ich ursprünglich genannt hatte, bekommen später die kummulierten Werte.
Viele Grüße Uli

AW: VBA-Code gesucht

08.06.2019 22:39:36

Onkel

Ich habe den Code jetzt geändert und es funktioniert.

Sub Beispiel()
Dim i As Integer, j As Integer
j = Worksheets("Berechnung").Range("B_LM").Value
Worksheets("Werte").Range("A" & j) = Worksheets("Berechnung").Range("StBr")
Worksheets("Werte").Range("B" & j) = Worksheets("Berechnung").Range("B_BL")
Worksheets("Werte").Range("C" & j) = Worksheets("Berechnung").Range("G34")
Worksheets("Werte").Range("D" & j) = Worksheets("Berechnung").Range("G47") + Range("G49")
Worksheets("Werte").Range("E" & j) = Worksheets("Berechnung").Range("G45")
Worksheets("Werte").Range("F" & j) = Worksheets("Berechnung").Range("G46")
Worksheets("Werte").Range("G" & j) = Worksheets("Berechnung").Range("G48")
End Sub

Viele Grüße
Uli

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA-Code gesucht

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread