Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Werte aus Userform in andere Tabelle
Ewald
Hallo
Habe eine Userform mit drei Comboboxen (Land,Namen,Zahl) und 2 Button (Speichern,Abbrechen)
Die Comboboxen und der Button "Abbrechen" funktioniern
Was mir noch fehlt ist die Funktion für den Button "Speichern".
Beim Klicken soll folgendes passieren:
Die Werte aus ComboBox 1-3 (Land,Namen,Zahl) werden inTabelle2 A1,B1,C1 eingetragen.
Die ComboBox 1-3 werden geleert und stehen zur neuen Eingabe bereit.
Eine neue Eingabe wird eine Zeile tiefer eingetragen (A2,B2,C2)
Wenn machbar söllte bei Vorhandensein von Land und Namen die Zahl eine Spalte weiter eingetragen werden.
als Beispiel:
1.Eintrag Land1 Name1 Zahl
2.Eintrag Land2 Name5 Zahl eine Zeile drunter
3.Eintrag Land1 Name1 Zahl Zahl eine Spalte weiter
würde in der Tabelle dann so aussehen:
L1 N1 Z 1.Eintrag
L2 N5 Z 2.Eintrag
L1 N1 Z Z
L2 N5 Z 3.Eintrag
Vielleicht hat ja jemand eine Lösung
Gruß Ewald

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

Betreff
Benutzer
Anzeige
AW: Werte aus Userform in andere Tabelle
21.10.2009 20:27:23
Mister
Hallo Ewald,
im Entwicklungsmodus den Button "Speichern" 2x anklicken und folgenden Code eingeben:
Sub Makro()
Dim i As Long
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("Normal").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = UserForm1.ComboBox1.Value                         'Name
ActiveCell.Offset(0, 1) = UserForm1.ComboBox2.Value                  'Vorname
ActiveCell.Offset(0, 2) = UserForm1.ComboBox3.Value                  'Buchnr.
For i = 1 To 3
Me.Controls("Combobox" & i).Value = ""
Next
Application.ScreenUpdating = True
End Sub
Es geht sicherlich eleganter aber als Ansatz...
Gruß
Martin
Anzeige
AW: Werte aus Userform in andere Tabelle
21.10.2009 21:45:48
Ewald
Hallo Martin
danke für die schnelle Antwort
deine Lösung klappt insofern das jeder Speichervorgang jeweils eine Zeile tiefer eingetragen wird .
Der zweite Teil (falls überhaupt möglich ) ist aber soweit ich das sehe nicht dabei bzw, funktioniert nicht.
Wenn (mit deinen Bezeichnungen) Name und Vorname schon in der Tabelle vorkommen soll keine neue Zeile geschrieben werden sondern die Buchnr.eine Spalte weiter eingetragen werden.
dh. wenn Name,Vorname,Buchnr, vorhanden (A1,B1,C1) nur die zweite Buchnr. in D1 eintragen
Vielleicht hast du ja auch hierfür eine Lösung
Gruß Ewald
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige