relativer Bezug in einer Schleife

Hallo,
ich möchte eine bestehende Programmierung erweitern. Dazu möchte ich folgende Zeilen hinzufügen bzw. vereinfachen. Ich dachte an relative Zellbezüge. Aber irgendwie klappt das nicht.
dim wb as workbook
If lauf_1 = 1 Then
wb.Sheets(29).Range("b22") = Sheets(Ausgabe).Range("e288")
wb.Sheets(30).Range("b22") = Sheets(Ausgabe).Range("f288")
wb.Sheets(31).Range("b22") = Sheets(Ausgabe).Range("g288")
wb.Sheets(32).Range("b22") = Sheets(Ausgabe).Range("h288")
wb.Sheets(33).Range("b22") = Sheets(Ausgabe).Range("i288")
wb.Sheets(34).Range("b22") = Sheets(Ausgabe).Range("j288")
wb.Sheets(35).Range("b22") = Sheets(Ausgabe).Range("k288")
wb.Sheets(36).Range("b22") = Sheets(Ausgabe).Range("l288")
wb.Sheets(37).Range("b22") = Sheets(Ausgabe).Range("m288")
wb.Sheets(38).Range("b22") = Sheets(Ausgabe).Range("n288")
wb.Sheets(39).Range("b22") = Sheets(Ausgabe).Range("o288")
wb.Sheets(40).Range("b22") = Sheets(Ausgabe).Range("p288")
wb.Sheets(29).Range("c22") = Sheets(Ausgabe).Range("e289")
wb.Sheets(30).Range("c22") = Sheets(Ausgabe).Range("f289")
wb.Sheets(31).Range("c22") = Sheets(Ausgabe).Range("g289")
wb.Sheets(32).Range("c22") = Sheets(Ausgabe).Range("h289")
wb.Sheets(33).Range("c22") = Sheets(Ausgabe).Range("i289")
wb.Sheets(34).Range("c22") = Sheets(Ausgabe).Range("j289")
wb.Sheets(35).Range("c22") = Sheets(Ausgabe).Range("k289")
wb.Sheets(36).Range("c22") = Sheets(Ausgabe).Range("l289")
wb.Sheets(37).Range("c22") = Sheets(Ausgabe).Range("m289")
wb.Sheets(38).Range("c22") = Sheets(Ausgabe).Range("n289")
wb.Sheets(39).Range("c22") = Sheets(Ausgabe).Range("o289")
wb.Sheets(40).Range("c22") = Sheets(Ausgabe).Range("p289")

elseif lauf_1 =2 then
wb.Sheets(29).Range("b23") = Sheets(Ausgabe).Range("e288")
wb.Sheets(30).Range("b23") = Sheets(Ausgabe).Range("f288")
wb.Sheets(31).Range("b23") = Sheets(Ausgabe).Range("g288")
wb.Sheets(32).Range("b23") = Sheets(Ausgabe).Range("h288")
wb.Sheets(33).Range("b23") = Sheets(Ausgabe).Range("i288")
wb.Sheets(34).Range("b23") = Sheets(Ausgabe).Range("j288")
wb.Sheets(35).Range("b23") = Sheets(Ausgabe).Range("k288")
wb.Sheets(36).Range("b23") = Sheets(Ausgabe).Range("l288")
wb.Sheets(37).Range("b23") = Sheets(Ausgabe).Range("m288")
wb.Sheets(38).Range("b23") = Sheets(Ausgabe).Range("n288")
wb.Sheets(39).Range("b23") = Sheets(Ausgabe).Range("o288")
wb.Sheets(40).Range("b23") = Sheets(Ausgabe).Range("p288")
usw. Bis else if =34
end if
Ich hoffe Ihr könnt mir helfen
Mir freundlichen Grüßen
Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Create_Loop() Dim wb As Workbook Dim i As Integer, x As Integer, n As Integer Dim StartRow As Integer StartRow = 21 For x = 1 To 34 If lauf_1 = i Then n = 4 For i = 29 To 40 wb.Sheets(i).Cells(StartRow + 1, 2) = Sheets(Ausgabe).Cells(288, n) n = n + 1 Next i For i = 29 To 40 wb.Sheets(i).Cells(StartRow + 1, 2) = Sheets(Ausgabe).Cells(289, n) n = n + 1 Next i End If Next x End Sub

Beliebteste Forumthreads (12 Monate)

relativer Bezug in einer Schleife

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread