Also ich würd mal sagen, so gehts gar nicht. Das sind ja alles inneinander verschachtelte if-Abfragen. Denen fehlt jeweils ihr end if.
Wenn schon einzelne If dann die verschiedenen Möglichkeiten mit elseif auswählen. (Sorry, den Satz mit Select case hab ich gestrichen, ist natürlich Blödsinn, habe übersehen das es ja unterschiedliche Abfragen sind)
For g = 1 To 40
If ActiveWorkbook.Worksheets(1).Name = "01_2006" Then
ActiveWorkbook.Worksheets(i).Range("F" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "02_2006" Then
ActiveWorkbook.Worksheets(i).Range("G" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "03_2006" Then
ActiveWorkbook.Worksheets(i).Range("H" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "04_2006" Then
ActiveWorkbook.Worksheets(i).Range("I" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "05_2006" Then
ActiveWorkbook.Worksheets(i).Range("J" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "06_2006" Then
ActiveWorkbook.Worksheets(i).Range("K" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "07_2006" Then
ActiveWorkbook.Worksheets(i).Range("L" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "08_2006" Then
ActiveWorkbook.Worksheets(i).Range("M" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "09_2006" Then
ActiveWorkbook.Worksheets(i).Range("N" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "10_2006" Then
ActiveWorkbook.Worksheets(i).Range("O" & 24 + g) = Stunden(g)
ElseIf ActiveWorkbook.Worksheets(1).Name = "11_2006" Then
ActiveWorkbook.Worksheets(i).Range("P" & 24 + g) = Stunden(g)
Else
ActiveWorkbook.Worksheets(i).Range("Q" & 24 + g) = Stunden(g)
End If
Next g
[Diese Nachricht wurde von J.Klingele am 07. Apr. 2006 editiert.]
[Diese Nachricht wurde von J.Klingele am 07. Apr. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP