nach Makro " Blattnummer" um eins erhöhen
10.12.2016 10:00:29
Andi
habe folgendes Makro,
Sub Makro1()
' Objektdaten Übernehmen auf Blatt Drucken
Range("V6:Z9").Select
Selection.Copy
Sheets("Drucken").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Bearbeiten").Select
Range("V13:X16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Drucken").Select
Range("I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Bearbeiten").Select
Range("X11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Drucken").Select
Range("K4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bei der Prozedur: Range("X11").Select wird die Nummer ins Blatt Drucken übertragen. Diese hat, (ich weiß, man sollte dies nach Möglichkeit nicht in eine einzige Zelle Schreiben) folgende Merkmale:
01-0066.16
Ist es möglich, nach dem Ausführen des Makros1, die Zahl ( zur Zeit 0066 )um eins zu erhöhen? und diesen Wert dann in das Blatt "Bearbeiten " in diese Zelle zu Übertragen?
wenn z.B 01-0120.16 dann nach Makro1 01-0121.16
Würde diese Möglichkeit bestehen? Wie könnte der Code dafür aussehen?
MfG Andi