Hallo !
Ich verwende diese Makro schon länger, jedoch wurde und werden die Daten ab der nächsten freien Zeile eingetragen. Wie kann ich diese Makro veranlassen, das es erst ab Zeile 20 eingetragen wird.
Danke für Eure Antwort und Hilfe
chris
Sub ProtokollSichern()
Dim i As Long
Const NewConstSheet As String = "Umsatz"
Dim bfound As Boolean
Dim sMerk As String
Dim sMaxZeile As Long
Dim TB As Worksheet
Application.ScreenUpdating = False
'Prüfen ob Tabelle NewConstSheet schon angelegt ist
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = NewConstSheet Then
bfound = True
Exit For
End If
Next i
'wenn nicht dann anlegen
If bfound = False Then
sMerk = ActiveWorkbook.ActiveSheet.Name
ActiveWorkbook.Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = NewConstSheet
ActiveWorkbook.Sheets(sMerk).Activate
End If
Set TB = ActiveWorkbook.Sheets(NewConstSheet)
'nächste leere Zeile ermitteln
sMaxZeile = TB.Cells(TB.Rows.Count, 1).End(xlUp).Row + 1
'Daten in neue Tabelle übertragen
TB.Cells(sMaxZeile, 1) = ActiveWorkbook.ActiveSheet.Range("C2")
TB.Cells(sMaxZeile, 3) = ActiveWorkbook.ActiveSheet.Range("I2")
TB.Cells(sMaxZeile, 8) = ActiveWorkbook.ActiveSheet.Range("H2")
Application.ScreenUpdating = True
End Sub