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

userform erweitern

Betrifft: userform erweitern von: sigmund
Geschrieben am: 09.11.2014 12:23:16

Hallo Excel Profis

Ich habe den untenstehenden Makro Code in einer Userform. Den Code habe ich erhalten, kann ihn jedoch nicht weiter entwickeln. Funktionieren tut er jedoch prima.

Ich möchte nun die Abfrage erweitern, indem ich noch Werte aus einer Combobox mit selektionieren möchte. Die Werte für die Combobox stehen in der Spalte A Tabelle 1.
Ziel: Combobox-Wert anwählen und Zeit-Datum anwählen. Danach sollen die entsprechenden Daten in Tabelle 2 geschrieben werden.

Könnt ihr mir helfen?

Besten Dank im Voraus.

  • Private Sub CommandButton1_Click()
        Dim dat As Long                                                     ' Startdatum
        Dim dat2 As Long                                                    ' Zieldatum
        Dim varZei As Variant                                               ' Zeile Startdatum
        Dim varZei2 As Variant                                              ' Zeile Zieldatum
        Dim varUebArr As Variant                                            ' Array für Daten
        Dim varTitArr As Variant                                            ' Array für Ü _
    berschriften
        dat = CDate(TextBox1.Text)                                          ' Startdatum
        dat2 = CDate(TextBox2.Text)                                         ' Zieldatum
        varZei = Application.Match(dat, Tabelle1.Columns(2), 0)             ' Startzeile für Ü _
    bertrag ermitteln
        varZei2 = Application.Match(dat2 + 1, Tabelle1.Columns(2), 0)       ' Zielzeile für ü _
    bertrag ermitteln
        varTitArr = Tabelle1.Range("A1:H1").Value                           ' Überschriften  _
    einlesen
        varUebArr = Tabelle1.Range("A" & varZei, "H" & varZei2).Value       ' Daten in Array  _
    schreiben
        With Tabelle2.Range("A1:H1")                                        ' Überschriften
            .Value = varTitArr                                              ' Überschriften in  _
    Tabelle
            .Range("A1:H1").Font.Bold = True                                ' Schriftschnitt Fett
            .VerticalAlignment = xlCenter                                   ' Vertikal zentrieren
            .WrapText = True                                                ' Zeilenumbruch  _
    aktivieren
        End With                                                            ' Ende Überschriften
        Tabelle2.Range("A2:H" & UBound(varUebArr)) = varUebArr              ' Daten eintragen
        Tabelle2.Range("B2:B" & UBound(varUebArr)).NumberFormat = "m/d/yyyy"
        Tabelle2.Range("C2:C" & UBound(varUebArr)).Font.Color = Tabelle1.Range("C2").Font.Color
        Tabelle2.Range("D2:D" & UBound(varUebArr)).Font.Color = Tabelle1.Range("D2").Font.Color
        Tabelle2.Range("E2:E" & UBound(varUebArr)).Font.Color = Tabelle1.Range("E2").Font.Color
        Tabelle2.Range("F2:F" & UBound(varUebArr)).Font.Color = Tabelle1.Range("F2").Font.Color
        Tabelle2.Range("G2:G" & UBound(varUebArr)).Font.Color = Tabelle1.Range("G2").Font.Color
        Tabelle2.Range("H2:H" & UBound(varUebArr)).Font.Color = Tabelle1.Range("H2").Font.Color
        
    Unload UserForm1 'Userform1 schliessen
    End Sub

  •  

    Beiträge aus den Excel-Beispielen zum Thema "userform erweitern"