Hilfe bei Excel VBA

Computer: Software & Programmierung Visual Basic
#1

Hallo Freunde

ich versuche mit Button_Click() die Eingabe in txtTextBox Name ( J2:J24) Nachname (K2:K24) anzeigen. bei jeder Button Click solle es neuen Daten in neuen Cell angezeigt werden. es heisst wenn J2 voll ist denn sollte es J3 nehmen.

Genau möchte ich die gleiche Daten Eingabe im Sheet2 ( Name (A2:A24) und Nachname (B2:B24)) eingenomen werden.

Hier ist das VBA Code.

Private Sub cmdButton_Click()
Dim Name As String
Dim Surname As String
Dim Fullname As String

Name = txtName.Text
Surname = txtSurname.Text

Fullname = Name & „“ & Surname
txtFullname.Text = Fullname

End Sub

Aber leider weiter komme ich nicht Bitte melde euch wenn Ihr hilfen konnte…Vielen Dank
Vielen Dank

grusse

Jaan

#2

ich versuche mit Button_Click() die Eingabe in txtTextBox Name
( J2:J24) Nachname (K2:K24) anzeigen. bei jeder Button Click
solle es neuen Daten in neuen Cell angezeigt werden. es heisst
wenn J2 voll ist denn sollte es J3 nehmen.

Genau möchte ich die gleiche Daten Eingabe im Sheet2 ( Name
(A2:A24) und Nachname (B2:B24)) eingenomen werden.

Hi Jaan,

unklar ob ich dich richtig verstanden habe:

Option Explicit
'
Private Sub cmdButton\_Click()
Dim strName As String, strSurname As String, wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
strName = txtName.Text
strSurname = txtSurname.Text
txtFullname.Text = strName & " " & strSurname
If strName "" And strSurname "" Then
 Call Daten(wks1, strName, strSurname, 10)
 Call Daten(wks2, strName, strSurname, 1)
Else
 MsgBox "fehlende Eingabe"
End If
End Sub
'
Sub Daten(wks As Worksheet, strN As String, strS As String, Spa As Integer)
Dim Zei As Long
Zei = wks.Cells(Rows.Count, Spa).End(xlUp).Row + 1
 If Zei 

Gruß
Reinhard
#3

Hallo Reihard,

ich bedanke mich,
das funktioniert wunderbar, ehr habe ich nicht gedacht das ich so schnell die Hilfe bekommen.

ich wünsche Dir einen schoenen Feiertagen.

Liebe grüsse an Dich von Jaan

#4

Hallo,

Villeicht konnte jemand mir auch hier dabei hilfen!!

Jetzt versuche ich die Eingabe im Textbox Sheet 1 sollen nur am bestimmten Rows am Sheet 2 angezeigt werden.

Zum beispiel:

txtName und txtSurname die Value sollen am Sheet 2 von Row „D6“ (Name) und „E6“ (Surname) bis Row „D17“ „E17“ angezeigt werden.

ich weiss nicht wie ich es hin krige!!

Schoene Grusse

Jaan

#5

Jetzt versuche ich die Eingabe im Textbox Sheet 1 sollen nur
am bestimmten Rows am Sheet 2 angezeigt werden.
txtName und txtSurname die Value sollen am Sheet 2 von Row
„D6“ (Name) und „E6“ (Surname) bis Row „D17“ „E17“ angezeigt
werden.

Hallo Jaan,

jetzt frag ich doch mal, was bedeutet Surname? Vor- oder Nachnamen?

Nochmal zu deinem Ausgangscode, die variable „Name“ habe ich umbenannt zu „strName“

Nicht nur wegen „ungarischer Notation“ (google mal danach bei Interesse) sondern weil „Name“ in Vba ein bekannter Ausdruck ist und man tunlichst vermeiden sollte Variablen so zu bezeichnen.

Variablennamen wie „Name“ „Dim“ „Sub“ „Split“ u.v.m. bringen, selbst wenn der Debugger nicht gleich meckert nur Eines, Ärger.

ungetestet:

Private Sub cmdButton\_Click()
Dim strName As String, strSurname As String, wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
strName = txtName.Text
strSurname = txtSurname.Text
txtFullname.Text = strName & " " & strSurname
If strName "" And strSurname "" Then
 Call Daten(wks1, strName, strSurname, 10, 2, 24)
 Call Daten(wks2, strName, strSurname, 4, 6, 17)
Else
 MsgBox "fehlende Eingabe"
End If
End Sub
'
Sub Daten(wks As Worksheet, strN As String, strS As String, Spa As Integer, Von, Bis)
Dim Zei As Long
Zei = wks.Cells(Rows.Count, Spa).End(xlUp).Row + 1
 If Zei 

Gruß
Reinhard
1 Like
#6

Hallo Reinhard,

Realy u are faster than i thought:smile:

Vielen Dank, erste Sorry das ich so schlechtes Deutsch schreibe.

Aber trozdem Reinhard, Du hast mich immer verstanden das ich ein Weltwunder*::smile:

jetzt frag ich doch mal, was bedeutet Surname? Vor- oder
Nachnamen?

Surname meinte ich Nachname. ich habe den beispiel genommen weil ich es weiter mit Excel verwenden kann und noch mehr mit den Code machen wocllte.

das code funktioniert wunderbar!!

Schoenen Grusse und Alle Schoenes Weinachten Fest.

Liebe Grüsse

Jaan

#7

Hallo

Danke Reinhard,

bis alles wünderbar geklappt, jetzt versuche ich eine kleine Änderung…
kann jemand Bitte mir erklären, was hier geändert werden soll, das die eingebne Wert am TextBox (strName und strNachname) in „Tabelle2“ ab A18 und B18 angezeigt werden soll.

danke Euch und schoenes Weinachten

Rami