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 ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Userform daten einspielen | Herbers Excel-Forum


Betrifft: Userform daten einspielen von: Dave
Geschrieben am: 09.12.2009 20:26:24

Hallo liebe Excelfreunde,

ich habe ein Beispiel meines Problems hochgeladen. In diesem bekomme ich speziell den Befehl der ComboBox1_Change() nicht richtig ausgedrückt für die Einspielung der Kilodaten in die ListBox1 der Userform. Vlt. liegt es an der Definition der Variablen?

Schöne Grüße,

Dave

https://www.herber.de/bbs/user/66464.xls

  

Betrifft: Listbox gemäss Auswahl Combobox füllen von: NoNet
Geschrieben am: 09.12.2009 20:39:40

Hallo Dave,

probiere es mal mit diesem Makro :

Private Sub ComboBox1_Change()
    Dim zeile As Integer, werkstoff As Variant
    ListBox1.Clear 'Aktuelle Inhalte der Listbox löschen
    For zeile = 8 To 10
        If Worksheets("Tabelle2").Cells(zeile, 2).Value = ComboBox1.Text Then
            ListBox1.AddItem Worksheets("Tabelle2").Cells(zeile, 3).Text & " kg"
        End If
    Next
End Sub
Gruß, NoNet


  

Betrifft: AW: Userform daten einspielen von: Uduuh
Geschrieben am: 09.12.2009 20:49:34

Hallo,
warum denn eine Listbox? Eine Textbox wäre richtig.

Gruß aus’m Pott
Udo



  

Betrifft: @Uduuh : Woher weißt Du das ? von: NoNet
Geschrieben am: 09.12.2009 21:05:04

Hey Uduuh,

weshalb Textbox ? - Evtl. soll aus der Listbox ja die passende "Packungsgrösse" des ausgewählten Artikels ausgewählt werden und diese dann weiterverarbeitet werden !?! Ich gehe mal davon aus, dass die endgültige Liste mehr als 3 Zeilen umfassen wird und da kann es ja auch Redundanzen (jedoch mit unterschiedlicher Packungsgrösse geben).

Mal schau'n, was Dave dazu meint...

Gruß, NoNet


  

Betrifft: AW: @Uduuh : Woher weißt Du das ? von: Dave
Geschrieben am: 09.12.2009 22:19:46

Hallo ihr beiden,

danke für Eure Antworten, ich habe die Listbox gegen eine TextBox getauscht. Nun möchte ich den Wert aus der Textbox in eine Zelle kopieren, dabei aber die Einheit nicht mitkopieren.

Habe das schon so probiert innerhalb der Userform:

Private Sub CommandButton1_Click()

   Worksheets("Tabelle1").Cells(1, 4) = Val(TextBox1.Value)

 Auswahl.Hide
End Sub

Hat leider nur teilweise geklappt. Bei 4,5 z.B. wurde nur die 4 kopiert? kann man das hinbekommen, dass das Feld die Zahl vor [kg] komplett übernimmt?

Schöne Grüße, Dave


  

Betrifft: AW: Teil-Textbox in Zelle von: Hajo_Zi
Geschrieben am: 09.12.2009 22:23:27

Hallo Dave,

CDbl(Lef(Textbox1, InStr(TextBox1, " ") - 1))

GrußformelHomepage


  

Betrifft: AW: Teil-Textbox in Zelle von: Dave
Geschrieben am: 09.12.2009 22:45:32

Super, vielen Dank!


Beiträge aus den Excel-Beispielen zum Thema "Userform daten einspielen"