Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingung in UserForm

Bedingung in UserForm
28.10.2014 12:20:12
Stefan
Hallo Forum,
ich brauch bitte einmal Hilfe.
Ich habe eine Tabelle in die ich Daten über eine UF eintrage.
Wie bekomme ich nun einen Abfrage hin.
Wenn in TextBox1 A steht sollen die Daten in Blatt 2 eingetragen werden.
Wenn in TextBox1 B steht sollen die Daten in Blatt 3 eingetragen werden.
usw bis Tabellenblatt 7
Bekomme es einfach nicht hin. Kann jemand helfen ?
Danke im Vorfeld
Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingung in UserForm
28.10.2014 12:38:26
Bastian
Hallo Stefan,
ich denke, das eleganteste wäre hier mit case zu arbeiten.
So in der Art:
Option Explicit 

Private Sub cmdOK_Click()
With ThisWorkbook
Select Case TextBox1.Value
Case "A"
.Worksheets(2).Range("A1").Value = TextBox1.Value 'Anpassen!
Case "B"
.Worksheets(3).Range("A1").Value = TextBox1.Value 'Anpassen!
End Select
End With
End Sub

Gruß, Bastian

AW: Bedingung in UserForm
28.10.2014 12:48:37
Stefan
Hallo Bastian,
danke für die schnelle Antwort.
Im Moment stehe ich aber irgendwie auf dem Schlauch.
Im Moment sieht meine UF folgendermaßen aus:
Private Sub CommandButton1_Click()
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 1) = TextBox1
Cells(z, 2) = TextBox2
Cells(z, 3) = TextBox3
Cells(z, 4) = TextBox4
Cells(z, 5) = TextBox5
End Sub


Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub


Private Sub TextBox1_Change()
End Sub
Wie baue ich das nun ein ?
Die Tabellen in die die UF es reinschreiben sollen sind bei A In Tabelle 1 und bei B in Tabelle 2
Lieben Gruß
Stefan

Anzeige
AW: Bedingung in UserForm
28.10.2014 14:10:21
Rudi
Hallo, 
Private Sub CommandButton1_Click()
Dim wks As Worksheet, z As Long
Set wks = Worksheets(Asc(UCase(TextBox1)) - 64)
With wks
z = .Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
.Cells(z, 1) = TextBox1
.Cells(z, 2) = TextBox2
.Cells(z, 3) = TextBox3
.Cells(z, 4) = TextBox4
.Cells(z, 5) = TextBox5
End With
End Sub

Gruß
Rudi

AW: Bedingung in UserForm
28.10.2014 14:53:43
Stefan
Hallo Rudi,
danke das klappt super.
Immer wenn ich so eine Erfolgserlebnis habe kommt mir aber selber eine Verbesserungsidee.
Magst Du mir noch zeigen wie ich da anstatt der TextBox 1 ein Listfeld einbaue?
Gruß
Stefan

Anzeige
AW: Bedingung in UserForm
28.10.2014 20:49:56
Stefan
Hallo Rudi,
habe ich Dich verärgert ?
Gruß
Stefan

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige