ich hatte vor kurzem die Frage ins Forum gestellt, wie ich eine Rechnung schreiben und nach dem Druck die relevanten Rechungsdaten (Datum, Name, Betrag) in einem gesonderten Arbeitsblatt speichern kann. Auf den Rat von Hans W. Herber habe ich den unten stehenden Code in ein Modul geschrieben und einem Arbeitsblatt den Namen "Journal" gegeben. Wenn ich das Makro starte, passiert aber nix. Lediglich meine Mappe wird dupliziert. Kann mir jemand sagen, was ich falsch mache?
hier der Code, den ich aus einem Beitrag von H.H. kopiert habe (bei mir stehen die zu speichernden Daten in B9, B10; B12 und K22, ich habe den Code hier aber aus Verständnisgründen unverändert wiedergegeben)
Vielen Dank für eure Mühe
Gruß Uli
'StandardModule: modMain
Sub NeueRechnung()
Dim shJournal As Worksheet
Dim intRowT As Integer, intRowS As Integer, intCounter As Integer
Set shJournal = Worksheets("Journal")
With Worksheets("Journal")
intRowT = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
intRowS = 28
For intCounter = 6 To 8
.Cells(intRowT, intCounter) = Cells(46, intCounter)
Next intCounter
Do Until IsEmpty(Cells(intRowS, 1))
.Cells(intRowT, 1) = Range("H19")
.Cells(intRowT, 2) = Range("H21")
.Cells(intRowT, 3) = Range("H20")
.Cells(intRowT, 4) = Cells(intRowS, 1)
.Cells(intRowT, 5) = Cells(intRowS, 4)
intRowS = intRowS + 1
intRowT = intRowT + 1
Loop
End With
ActiveSheet.Copy
ThisWorkbook.Activate
Range("A8:A13, H20,A28:H45").ClearContents
Range("H19") = Range("H19") + 1
Range("H21") = Date
End Sub