ich habe Probleme bei folgendem Code:
Sub MonatKopieren()
'Dim i As Integer
'noch uninteressant, ist für spätere Schleife gedacht
If Sheets("Auswertung").Range("B3") = Sheets("Historie").Cells(1, 2).Value Then
'in "Auswertung" werden Daten eines Monats geladen, diese sollen in der "Historie" _
archiviert werden - deswegen wird geschaut,
'ob es zu diesem Monat (aktuell nur auf einen Monat verwiesen, später dann mit Variablen _
und Schleife auf alle) bereits Daten gibt
If Sheets("Historie").Cells(3, 2).Value = "" Then
'gibt es noch keine Daten, sollen die aktuellen aus der Auswertung kopiert werden
Application.CutCopyMode = False
With Worksheets("Auswertung")
.Range(.Cells(6, 2), .Cells(15, 4)).Copy
End With
Worksheets("Historie").Cells(3, 2).Paste
'hier kommt der "Laufzeitfehler 438"
Else
End If
Else
End If
End Sub
Ich habe versucht, mit der Kommentarfunktion alles zu beschreiben. Ich weiß leider nicht, wieso ich den Laufzeitfehler erhalte und wie ich das Problem lösen kann.Über eure Unterstützung würde ich mich sehr freuen!
Vielen Dank vorab und Grüße
Markus