habe folgendes Problem ,ich möchte mir eine Datenbank erstellen zur Arbeitserleichterung und Fehlerverwaltung ,möchte Auswahl-Werte aus TextBox, Combobox etc. in mein Excel-Tabellenblatt "Mängelbericht" 2. Blatt eintragen lassen ,leider bekomme ich eine Fehlermeldung vom Debugger,
-Code- last = ActiveSheet.Cells(Rows.Count, 1).End(X1Up).Row + 1
..hmm spreche ich das falsche Blatt an ? bekomme die Meldung nicht weg ,es funktioniert nicht ,weis erst mal nicht weiter ...vielleicht kann mir hir im Forum jemand helfen
Danke schon mal
Gruß
Steffen
Beispiel:
Private Sub CommandButton_Abbrechen_Click()
Unload Me
End Sub
Private Sub CommandButton_Eingabe_Click()
'erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(X1Up).Row + 1
'1.Spalte
'activeSheet.Cells(last, 1).Value = ComboBox_Projekt
'2.spalte
'Cells(last, 2).Value = ComboBox_BT_FZ_Nr
End Sub
Private Sub UserForm_Initialize()
'ComboBox_Projekt = " Projekt eingeben"
'Projekt _ComboBox
With ComboBox_Projekt
.AddItem "Projekt eingeben!" 'nullter Begriff
.AddItem "Flexity Duisburg" 'erster Begriff
.AddItem "Essen3"
.AddItem ""
.ListIndex = 0
End With
End Sub