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:
Beginnerin

Datum:
21.06.2013 10:21:29

Views:
1004

Rating:

Antwort:

Thema:
Mit Combobox-Wert Spalte auslesen

Guten Morgen,

vielen lieben Dank.

:( Nun es ist mir ja schon fast peinlich.. Ich habe den Code nun in Tabelle1 eingefügt.

Private Sub ComboBox1_Change()
    Dim R1, R2, Rng As Range
    Dim AnfangSpalte, EndeSpalte As Integer
    AnfangSpalte = 2 ' Spalte B
    EndeSpalte = 16 ' Spalte P
     
    For Each Zelle In Range("A2:A37") 'gehe jede Zelle im Bereich A2:A37 durch
        Zellennr = Zelle.Row 'aktuelle Zeilennummer
        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("1").Cells(Zellennr, Spalte).Value = Cells(1, Spalte).Value 'kopiere von der aktuellen Spalte die Überschrift in die Tabelle 1
            End If
        Next
    Next
End Sub

Nun ist das mit _Change richtig? Denn momentan passiert folgendes: nichts.

Wie richte ich es ein, dass die "Überschriften" (bzw. der Inhalt der ersten Zeile) in Tabelle1 im Bereich D14 und folgende (D15...) eingefügt wird?

Liebe grüße

Claudia

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