Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Formular Daten in Tabelle
24.11.2017 13:13:09
Nele
Hallo,
ich möchte Daten, welche ich in einem Formular mit TextBoxen / CommandBoxen eingebe in eine Tabelle übertragen.
Bsp mit einer TextBox:

Private Sub CommandButton1_Click()
With Sheets("Eingabemaske")
Sheets("Eingabemaske").Activate
Zeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
With UserForm1
Cells(A, 8).Value = .TextBox5.Value
End With
End Sub

Was habe ich falsch gemacht ?
Mfg Nele

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formular Daten in Tabelle
24.11.2017 13:34:11
Werner
Hallo Nele,
du meinst so:
Private Sub CommandButton1_Click()
Dim Zeile As Long
With Sheets("Eingabemaske")
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
With UserForm1
.Range("A" & Zeile).Value = .TextBox5.Value
End With
End With
End Sub
Gruß Werner
AW: Formular Daten in Tabelle
24.11.2017 13:34:59
yummi
Hallo Nele,

Private Sub CommandButton1_Click()
With Sheets("Eingabemaske")
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1    Berechnet die letzte Zeile in Spalte A
.Cells(Zeile, 8).Value = Me.TextBox5.Text  'trägt immer in Spalte H ein
end with
End Sub
Wenn allerdings in Zeile A eine andere Anzahl an einträgen vorhanden ist, als in H dann schreibst Du evtl nicht da hin, wohin du willst. WEnn Du also die letzte Zeile in Spalte H bestimmen willst, dann mach aus der 1 in der Klammer eine 8.
Gruß
yummi
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige