Hallo Mewto
mal die Antwort so kurz wie die fRage
Range("A1")=Textbox1
Gruß Hajo
Hallo Mewto
mal die Antwort so kurz wie die fRage
Range("A1")=Textbox1
Gruß Hajo
Erst mal vielen Dank für die Hilfe und Sorry für die kurze Frage.
Kannst du mir vielleicht noch sagen, wie ich ohne das ich den VBA
Code wiederholen muß, für alle Textboxen einen VBA Code erstelle?
Anbei mal das Beispiel das ich gefunden habe. Nur ist aus dem Code nicht
ersichtlich, wo der Eintrag erfolgen soll. Damit meine ich es sagt nicht
aus wo der Eintrag für Zelle A1 oder A2 usw. ist. Wenn ich mit diesem VBA
arbeite, drücke ich danach einen Speicherbutton und erst dann werden mir
die Einträge aus der UserForm übertragen, nur nicht dorthin, wo ich sie
möchte.
Private Sub Aktualisieren()
'Anzeige Dialog aktualisieren
aZelle = ActiveCell.Row
TextBox1.Text = TB.Cells(aZelle, 1)
If TB.Cells(aZelle, 2) = "Herr" Then
ComboBox1.Value = "Herr"
Else
ComboBox1.Value = "Frau"
End If
TextBox2.Text = TB.Cells(aZelle, 3)
TextBox3.Text = TB.Cells(aZelle, 4)
TextBox4.Text = TB.Cells(aZelle, 5)
TextBox5.Text = TB.Cells(aZelle, 6)
If TB.Cells(aZelle, 7) = "Ja" Then
UserForm1.[CheckBox1].Value = True
Else
UserForm1.[CheckBox1].Value = False
End If
If TB.Cells(aZelle, 8) = "1-10 MA" Then
UserForm1.[OptionButton1].Value = True
ElseIf TB.Cells(aZelle, 8) = "11-50 MA" Then
UserForm1.[OptionButton2].Value = True
ElseIf TB.Cells(aZelle, 8) = ">50 MA" Then
UserForm1.[OptionButton3].Value = True
Else
UserForm1.[OptionButton1].Value = False
UserForm1.[OptionButton2].Value = False
UserForm1.[OptionButton3].Value = False
End If
End Sub
Gruß Mewto
Hallo Mewto
mit dem Code komme ich nicht klar.
Du schreibst das Du mit dem Code die Textboxen ins Register überträgtst (so liest sich das jedenfalls), ich würde sagen das ist genau umgekehrt
Gruß Hajo
Hallo Hajo,
kann ich dir die Tabelle mal mailen, dann kannst du dir sie mal anschauen.
Wenn ich in die UserForm was eingegeben habe, und dann auf den Speicherbutten klicke, überträgt sie mir die Daten auf das Tabellenblatt.
Gruß Martin
Hallo Martin
ok.
Schreibe aber Bitte auf ein Register wo das Problem ist und wo die Daten hin sollen.
Gruß Hajo
Hallo Hajo,
erstmal brauche ich dazu deine Mailadresse.
Wenn du dir die Tabelle anschaust, wirst du sehen, das die Einträge
sich in die falschen Zellen schreiben.
Gruß Martin
Klicke nur meinen Namen oben an
Hallo Martin
ich hatte nicht umsonst geschrieben das eine Erklärung beigefügt werden soll, wo die Daten hin sollen.
Du mußt immer bedenken nicht ich habe die Userform, darum weiß ich auch nicht was Du damit machen willst.
In Deinem Code kannst Du auif den Text UserForm1.[ und ] verzichten da es die aktive ist.
Gruß Hajo
Sorry habe ich wohl nicht richtig gelesen.
Textbox1 soll in Zelle A1 (Firma)
Textbox2 soll in Zelle C1 (Name)
Textbox3 soll in Zelle D1 (Straße)
Textbox4 soll in Zelle E1 (Postleitzahl)
Textbox5 soll in Zelle F1 (Ort)
Brauche nur die Textboxen. Alles andere brauch ich nicht.
Hallo Martin
siehe Dir as noch mal genau an A1 wäre die Überschriftzeile und warum Tabelle wenn alls immer in eine Zeile geschrieben wird. Für VBA muß die Aufgabe schon klar beschrieben werden.
Gruß Hajo
PrivateSub CommandButton1_click()
User Form1.Show
End Sub