Meine erstellten Makros führen folgendes aus:
1. eine Zelle kopieren
2. in einer 2. Zelle den Inhalt einfügen
3. in einer 3. Zelle das heutige Datum schreiben
Diese 3 Zellen beinhalten nur Datum.
Das ganze Makro betrifft nur eine einzige Zeile.
Hier ein Beispiel für die Zeile 10/11/12
Option Explicit
Sub Makro_Zeile10()
Dim Zelle As Date
Zeile = 10
Range("H" & Zeile).Copy ' Zelle kopieren
Range("E" & Zeile).PasteSpecial Paste:=xlPasteValues ' Inhalte einfügen
Range("F" & Zeile) = Date ' heutiges Datum einfügen
Application.CutCopyMode = False ' ESC Taste
MsgBox "Aufgabe erledigt" ' Message Box
End Sub
Sub Makro_Zeile11()
Dim Zelle As Date
Zeile = 11
Range("H" & Zeile).Copy ' Zelle kopieren
Range("E" & Zeile).PasteSpecial Paste:=xlPasteValues ' Inhalte einfügen
Range("F" & Zeile) = Date ' heutiges Datum einfügen
Application.CutCopyMode = False ' ESC Taste
MsgBox "Aufgabe erledigt" ' Message Box
End Sub
Sub Makro_Zeile12()
Dim Zelle As Date
Zeile = 12
Range("H" & Zeile).Copy ' Zelle kopieren
Range("E" & Zeile).PasteSpecial Paste:=xlPasteValues ' Inhalte einfügen
Range("F" & Zeile) = Date ' heutiges Datum einfügen
Application.CutCopyMode = False ' ESC Taste
MsgBox "Aufgabe erledigt" ' Message Box
End Sub
Es ist also für jede Zeile immer der gleiche Code.
Die Datei beinhaltet aber sehr viele Zeilen.
Also müsste ich für jede Zeile ein eigenes Makro schreiben.
Ist es möglich, dafür eine FOR NEXT Schleife zu verwenden?
Liebe Grüße
Birgit