hätte eine Frage:
Ab Zeile 6 soll angefangen werden Zeilen (Datensätze) entsprechend der Werte der CBO's der Userform zu schreiben. Vorher war das so eingerichtet, dass die Werte ab Zeile 2 eingetragen wurden. Meine Frage nun, kann ich das hier bei dem Kommando Click auf den Button "Eintragen" im VBA Code abändern, oder muss ich da an einer anderen Stelle etwas anpassen?
Über Rückmeldung wäre ich dankbar.
LG
Jessi
Private Sub cmdDatenschreiben_Click()
Dim lngNeueReihe As Long
If cboAutor.Value = "" Then
MsgBox "Leider können Sie keinen neuen Plan erfassen. Sie müssen sich autorisieren, um die _
Verantwortlichkeit der Änderungen festzulegen! Das Erfassungsdatum wird automatisch hinterlegt", vbInformation, _
"Hinweis für " & Application.UserName & ":"
Else
'Neue Reihe berechnen
lngNeueReihe = Range("A65536").End(xlUp).Row + 1
'Werte eintragen
ActiveSheet.Cells(lngNeueReihe, 3).Value = Me.cboGruppen.Value 'Phase
ActiveSheet.Cells(lngNeueReihe, 4).Value = Me.cboPlanNr.Value 'Gewerk
ActiveSheet.Cells(lngNeueReihe, 5).Value = Me.cboIndex.Value 'Abschnitt
ActiveSheet.Cells(lngNeueReihe, 6).Value = Me.cboBauteil.Value 'Bauwerk
ActiveSheet.Cells(lngNeueReihe, 7).Value = Me.cboBeschreibung.Value 'Planart
ActiveSheet.Cells(lngNeueReihe, 8).Value = Me.CboPlannummer.Value 'Plannummer
ActiveSheet.Cells(lngNeueReihe, 9).Value = Me.cboIndex.Value
ActiveSheet.Cells(lngNeueReihe, 13).Value = Me.cboBeschreibung.Value
ActiveSheet.Cells(lngNeueReihe, 14).Value = Me.txtFormat.Value
ActiveSheet.Cells(lngNeueReihe, 15).Value = Me.txtMaßstab.Value
ActiveSheet.Cells(lngNeueReihe, 16).Value = Me.optFarbe.Value
ActiveSheet.Cells(lngNeueReihe, 17).Value = Me.txtSeiten
ActiveSheet.Cells(lngNeueReihe, 19).Value = Me.cboAutor.Value
ActiveSheet.Cells(lngNeueReihe, 20).Value = now
End If
End Sub