Sub Makro1()
' gewünschtes Jahr eingeben
jahr = InputBox("Welches Jahr?")
' gewünschten Betrag eingeben
betrag = InputBox("Welcher Betrag?")
Range("B1").Select
Do While ActiveCell <> ""
For i = 1 To 300000
Name = ActiveCell
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
If ActiveCell <> Name Then GoTo weiter
Next i
Exit Sub
weiter:
ActiveCell.Offset(-2, 0).Select
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row).Offset(1, 0).Insert Shift:=xlDown
' Jahr in Spalte E eintragen
ActiveCell.Offset(0, 3) = jahr
' Betrag in Spalte F eintragen
ActiveCell.Offset(0, 4) = betrag
ActiveCell.Offset(3, 0).Select
Loop
End Sub
Die Datei https://www.herber.de/bbs/user/8227.jpg wurde aus Datenschutzgründen gelöscht
Was mache ich denn da falsch? Hat das evtl. etwas damit zu tun, das das Jahr in Spalte E und der Betrag in Spalte I eingetragen werden soll?
Sub Makro1()
jahr = InputBox("Welches Jahr?")
betrag = InputBox("Welcher Betrag?")
Range("B2").Select
Do While ActiveCell <> ""
For i = 1 To 300000
Name = ActiveCell
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
If ActiveCell <> Name Then GoTo weiter
Next i
Exit Sub
weiter:
ActiveCell.Offset(-2, 0).Select
Rows(ActiveCell.Row).Copy
ActiveCell.Offset(1, 0).Select
Rows(ActiveCell.Row).Insert Shift:=xlDown
ActiveCell.Offset(0, 3) = jahr
ActiveCell.Offset(0, 4) = betrag
ActiveCell.Offset(3, 0).Select
Loop
End Sub
Sub Makro1()
jahr = InputBox("Welches Jahr?")
betrag = InputBox("Welcher Betrag?")
bezeichnung = InputBox("Welche Bezeichnung?")
Range("B2").Select
Do While ActiveCell <> ""
For i = 1 To 300000
Name = ActiveCell
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then Exit Sub
If ActiveCell <> Name Then GoTo weiter
Next i
Exit Sub
weiter:
ActiveCell.Offset(-2, 0).Select
Rows(ActiveCell.Row).Copy
ActiveCell.Offset(1, 0).Select
Rows(ActiveCell.Row).Insert Shift:=xlDown
ActiveCell.Offset(0, 3) = jahr
ActiveCell.Offset(0, 7) = betrag
ActiveCell.Offset(0, 8) = bezeichnung
ActiveCell.Offset(3, 0).Select
Loop
End Sub