Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1032to1036
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
Inhaltsverzeichnis

Werte aus Eingabemaske per Commandbuton in Arbeits

Werte aus Eingabemaske per Commandbuton in Arbeits
18.12.2008 10:28:00
Roger
Hallo,
heute schon mein zweites Problem: Ich habe eine UserForm (Eingabemaske) und div. Commandbutton. Kundendaten werden dann in Arbeitsblätter geschrieben. Untenstehender Code füllt zum Bsp. in Tamelle3 Adressen ein: Namen in C4, Vornamen in D4, Strasse in C5 und Plz Ort in C6 ein. Nun will ich mit einem weiteren Commandbutton einrichten, welcher im Arbeitsblatt "Aufträge2009" die Namen in J, die Vornamen in K, Strasse in L und PLZ Ort in M schreibt. Jeweils in die unterste freie Zeile. Kann mir da jemand helfen?
Vielen Dank im Voraus,
Roger

Private Sub CommandButton4_Click()
Dim A As Long
Dim lngCol As Long, lngRow As Long
lngRow = 4
With Tabelle3
For A = 1 To 7
lngCol = IIf(A = 2, 4, 3)
.Cells(lngRow, lngCol) = Me("Textbox" & A)
If A  1 Then lngRow = lngRow + 1
Next A
.Select
End With
Unload Me
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Eingabemaske per Commandbuton in Arbeits
18.12.2008 10:46:24
fcs
Hallo Roger,
kann man etwa so lösen.
Gruß
Franz

Private Sub CommandButtonXYZ_Click()
Dim A As Long, wksAT As Worksheet
Dim lngRow As Long
Set wksAT = Worksheets("Aufträge2009")
With wksAT
'nächste freie Zeile in Spalte J
lngRow = .Cells(.Rows.Count, 10).End(xlUp).Row + 1
'Textboxen abarbeiten
For A = 1 To 7
Select Case A
Case 1 'Name    --> Spalte J
.Cells(lngRow, 10) = Me("Textbox" & A)
Case 2 'Vorname --> Spalte K
.Cells(lngRow, 11) = Me("Textbox" & A)
Case 3 'Strasse --> Spalte L
.Cells(lngRow, 12) = Me("Textbox" & A)
Case 4 'PLZ Ort --> Spalte M
.Cells(lngRow, 13) = Me("Textbox" & A)
Case 5, 6, 7
'do nothing
End Select
Next A
.Activate '? erforderlich/gewollt
End With
Unload Me '? erforderlich/gewollt
End Sub


Anzeige
AW: Werte aus Eingabemaske per Commandbuton in Arbeits
18.12.2008 10:57:12
Roger
Perfekt! Vielen Dank,
Roger

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige