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

Ansicht des Beitrags:
Von:
schokobons		 Datum:
20.06.2013 15:47:38		 Views:
970		 Rating:
     
Antwort:
  Ja
Thema:
Mit Combobox-Wert Spalte auslesen		 
So bitteschön:

    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:A42") 'gehe jede Zelle im Bereich A2:A42 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

________________________________

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
20.06.2013 12:59:26 Beginnerin
NotSolved
20.06.2013 14:05:43 schokobons
NotSolved
20.06.2013 14:57:19 Gast42001
NotSolved
Blau Mit Combobox-Wert Spalte auslesen
 20.06.2013 15:47:38 schokobons
NotSolved
21.06.2013 10:21:29 Beginnerin
NotSolved
21.06.2013 10:48:45 Beginnerin
NotSolved
21.06.2013 12:41:05 schokobons
Solved