Prüfen ob TextBox vorhanden ist
04.09.2018 08:05:16
Steph
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
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
Über Ideen wäre ich sehr dankbar!
LG
Anzeige