Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Bedingung in UserForm

Betrifft: Bedingung in UserForm von: Stefan Glander
Geschrieben am: 28.10.2014 12:20:12

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

  

Betrifft: AW: Bedingung in UserForm von: Bastian
Geschrieben am: 28.10.2014 12:38:26

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


  

Betrifft: AW: Bedingung in UserForm von: Stefan Glander
Geschrieben am: 28.10.2014 12:48:37

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


  

Betrifft: AW: Bedingung in UserForm von: Rudi Maintaire
Geschrieben am: 28.10.2014 14:10:21

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


  

Betrifft: AW: Bedingung in UserForm von: Stefan Glander
Geschrieben am: 28.10.2014 14:53:43

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


  

Betrifft: AW: Bedingung in UserForm von: Stefan Glander
Geschrieben am: 28.10.2014 20:49:56

Hallo Rudi,
habe ich Dich verärgert ?

Gruß
Stefan


 

Beiträge aus den Excel-Beispielen zum Thema "Bedingung in UserForm"