Office: Suche Hilfe beim VBA Code zum Daten übertragen

Hallo Leute,

ich habe ein code um Daten von einem Tabellenblatt "Material & Kosten" in dieses tabellenblatt "Angebot"
zu übertragen.
Alles funktioniert Tadellos.

Die Eintragungen sollen im Tabellenblatt Angebot ab Zelle B17 eingefügt werden, auch das hat bis jetzt prima funktioniert.

Nun habe ich in der Spalte A (Tabellenblatt Angebot), welche eigentlich für das Makro keine Rolle spielen soll
in A17 und A32 was eingefügt. Und das Makro fügt mir nun die Übernahme erst ab B33 ein.

Ist bestimmt nur ne kleine Änderung im Makro, aber ich komm nicht drauf.

Wäre toll wenn sich das mal jemand anschauen könnte.

Danke + Gruß

Hier das Makro:

HTML:

Sub Datenübernahme_Angebot()
ActiveSheet.Unprotect ("XXX")
Sheets("Angebot").Unprotect ("XXX")
Dim rngC As Range
Dim lngLZ As Long
Dim wskQuelle As Worksheet
Dim wskZiel As Worksheet
Set wskQuelle = Worksheets("Material & Kosten")
Set wskZiel = Worksheets("Angebot")
With wskZiel
lngLZ = WorksheetFunction.Max(16, .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With wskQuelle
With .Range("C3:C" & .Rows.Count)
If WorksheetFunction.Count(.Cells) Then
For Each rngC In .SpecialCells(xlCellTypeConstants, xlNumbers)
lngLZ = lngLZ + 1
If rngC.Offset(, -2) <> Empty Then
wskZiel.Cells(lngLZ, 2).Resize(1, 5).Value = rngC.Offset(, -2).Resize(1, 5).Value
Else
wskZiel.Cells(lngLZ, 2).Value = rngC.Offset(, -2).End(xlUp).Value
wskZiel.Cells(lngLZ, 3).Resize(1, 5).Value = rngC.Offset(, -1).Resize(1, 5).Value
End If
Next
End If
End With
End With
Sheets("Angebot").Select
Range("F3") = Date
If Range("B8") <> "" Then
If MsgBox("Ein Name ist schon vorhanden. Überschreiben?", vbYesNo) = vbYes Then
Call Dateneingabe_Angebot
End If
ElseIf Range("B8") = "" Then
ActiveSheet.Protect ("XXX"), DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Sheets("Material & Kosten").Protect ("XXX"), DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub

 

Hi,

ändere in dieser Zeile

Code:

lngLZ = WorksheetFunction.Max(16, .Cells(.Rows.Count, [COLOR=#ff0000][B]1[/B][/COLOR]).End(xlUp).Row)

die 1 in eine 2

Code:

   lngLZ = WorksheetFunction.Max(16, .Cells(.Rows.Count, [COLOR=#ff0000][B]2[/B][/COLOR]).End(xlUp).Row)

Bis später,
Karin