ich möchte prüfen ob eine TextBox vorhanden ist oder nicht. Die TextBoxen heißen alle gleich: TextBox1, TextBox2, TextBox3, ... und können automatisch per Button auf eine UF eingefügt werden.
Im nächsten Schritt möchte ich nun einen weiteren Button auf die UF einbauen, der den Inhalt der entsprechenden TextBoxen an eine Excel Tabelle in eine fest definierte SPalte weiter gibt.
Meine Idee:
Private Sub CommandButton_Einfügen_Click()
Dim last As Long
With Sheets("Datenbank")
last = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(last, 1).Value = UserForm6.Controls("TextBox1").Text
.Cells(last, 2).Value = UserForm6.Controls("TextBox2").Text
End With
MsgBox ("Die Daten wurden erfolgreich in die Datenbank eingegeben!")
Unload UserForm1
Unload UserForm6
ActiveWorkbook.Save
End Sub
Das klappt auch wunderbar, wenn man denn nur die beiden TextBoxen 1 & 2 hat. Hat man nur TextBox1 klappt das ganze nicht mehr daher meine Idee:Private Sub CommandButton_Einfügen_Click()
Dim last As Long
With Sheets("Datenbank")
last = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
If TextBox1 = True Then
.Cells(last, 1).Value = UserForm6.Controls("TextBox1").Text
Else
End If
If TextBox2 = True Then
.Cells(last, 2).Value = UserForm6.Controls("TextBox2").Text
Else
End If
End With
MsgBox ("Die Daten wurden erfolgreich in die Datenbank eingegeben!")
Unload UserForm1
Unload UserForm6
ActiveWorkbook.Save
End Sub
ICh wollte also überprüfen ob die TextBoxen vorhanden sind und falls ja, sollen die Daten weitergegeben werden, falls nein eben nicht. Allerdings funktionert das ganze mal wieder nicht :( Über Ideen wäre ich sehr dankbar!
LG