VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Mit Combobox-Wert Spalte auslesen	20.06.2013 12:59:26	Beginnerin
Mit Combobox-Wert Spalte auslesen	20.06.2013 14:05:43	schokobons
Mit Combobox-Wert Spalte auslesen	20.06.2013 14:57:19	Gast42001
Mit Combobox-Wert Spalte auslesen	20.06.2013 15:47:38	schokobons
Mit Combobox-Wert Spalte auslesen	21.06.2013 10:21:29	Beginnerin
Mit Combobox-Wert Spalte auslesen	21.06.2013 10:48:45	Beginnerin
Mit Combobox-Wert Spalte auslesen	21.06.2013 12:41:05	schokobons

Ansicht des Beitrags:

Von:
schokobons

Datum:
21.06.2013 12:41:05

Views:
1267

Rating:

Antwort:

Thema:
Mit Combobox-Wert Spalte auslesen

So meine Liebe. Hier nochmals eine Aufstellung des Codes :

Private Sub Cmbx_Click() 'Combox wird beim Klick initialisiert
For Each Zelle In Range("A2:A42") 'Werte von der Spalte A2:42 in die Combox füllen
    Cmbx.AddItem Zelle.Value
Next
End Sub

Sub selectedItem() 'gewählter Eintrag in der Combox
    Dim Zelle As Integer
    With Me.Cmbx
        If .ListIndex < 0 Then
             MsgBox ("Es wurde keinen Eintrag ausgewählt")
        Else
             Zelle = CInt(.ListIndex) + 2
             Call ueberschriftenkopieren(Zelle) 'Methode x aufrufen, die alle Überschriften(dort wo sich ein x befindet) von der Spalte B bis P ausliest
        End If
    End With
End Sub
 
Sub ueberschriftenkopieren(Zellennr As Integer) 'Überschriften kopieren
    Dim R1, R2, Rng As Range
    Dim AnfangSpalte, EndeSpalte As Integer
    AnfangSpalte = 2 ' Spalte B
    EndeSpalte = 16 ' Spalte P
    
    If (Zellennr > 0) Then
        For Spalte = AnfangSpalte To EndeSpalte 'in der aktuellen Zeile überprüfen, ob sich in den Spalten B - P der Wert x befindet
            If (Cells(Zellennr, Spalte).Value = "x") Then
                ThisWorkbook.Worksheets("Tabelle1").Cells(Zellennr, Spalte).Value = Cells(1, Spalte).Value 'kopiere von der aktuellen Spalte die Überschrift in die Tabelle 1
            End If
        Next
    End If
End Sub

Private Sub But_Click() 'Schaltfläche Button ruft die Methode selectedItem auf
    Call selectedItem
End Sub

Dir sollte es jetzt klar sein, was du noch anpassen müsstest. Habe dir ne Menge Arbeit abgenommen!

Somit ist dieser Thread für mich abgeschlossen.

______________________________________

schokobons

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Mit Combobox-Wert Spalte auslesen	20.06.2013 12:59:26	Beginnerin
Mit Combobox-Wert Spalte auslesen	20.06.2013 14:05:43	schokobons
Mit Combobox-Wert Spalte auslesen	20.06.2013 14:57:19	Gast42001
Mit Combobox-Wert Spalte auslesen	20.06.2013 15:47:38	schokobons
Mit Combobox-Wert Spalte auslesen	21.06.2013 10:21:29	Beginnerin
Mit Combobox-Wert Spalte auslesen	21.06.2013 10:48:45	Beginnerin
Mit Combobox-Wert Spalte auslesen	21.06.2013 12:41:05	schokobons