Thema Datum  Von Nutzer Rating
Antwort
06.02.2017 11:54:46 Kati
Solved
Blau Spalte bis zum Ende lesen und in Zeile kopieren
 06.02.2017 12:38:05 Gast38540
*****
Solved
06.02.2017 13:23:37 Gast66440
Solved

Ansicht des Beitrags:
Von:
Gast38540		 Datum:
06.02.2017 12:38:05		 Views:
547		 Rating:
     
Antwort:
 Nein
Thema:
Spalte bis zum Ende lesen und in Zeile kopieren

Hallo Kati! Also ganz auf die schnelle, könnte es so gehen. Ist ohne Kommentare und ich bin davon ausgegangen, dass die Namen in Zeile 1 stehen. erstmal an einer Sicherheitskopie testen.  Vg

 

Sub sortieren()
Dim zeilen As Long
Dim spalten As Long
Dim quelle As Object
Dim ziel As Object
Dim spalte As Long
Dim zeile As Long
Dim eintrag As Long

Set quelle = Worksheets(1)
Set ziel = Worksheets(2)
eintrag = 2

zeilen = quelle.Cells(Rows.Count, 1).End(xlUp).Row
spalten = quelle.Cells(1, Columns.Count).End(xlToLeft).Column

For spalte = 2 To spalten
    For zeile = 2 To zeilen
        If quelle.Cells(zeile, spalte) = "x" Then
            ziel.Cells(eintrag, 1) = quelle.Cells(zeile, 1)
            ziel.Cells(eintrag, 2) = quelle.Cells(1, spalte)
            eintrag = eintrag + 1
        End If
    Next zeile
Next spalte


Set quelle = Nothing
Set ziel = Nothing
End Sub

 

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
06.02.2017 11:54:46 Kati
Solved
Blau Spalte bis zum Ende lesen und in Zeile kopieren
 06.02.2017 12:38:05 Gast38540
*****
Solved
06.02.2017 13:23:37 Gast66440
Solved