Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile in Tabelle
 13.06.2018 15:23:10 TheDeath508
NotSolved
13.06.2018 16:33:03 RPP63
NotSolved
13.06.2018 16:48:38 TheDeath508
NotSolved

Ansicht des Beitrags:
Von:
TheDeath508		 Datum:
13.06.2018 15:23:10		 Views:
832		 Rating:
     
Antwort:
  Ja
Thema:
Zeile in Tabelle		 


Sub DatenpoolSepariertTransponieren()
    Dim lngZ As Long
    Dim wsDatenpool As Worksheet
    
    'Name des Tabellenblattes, das die Liste enthält - bitte anpassen :
    Set wsDatenpool = Worksheets("Datenpool")
    
    With wsDatenpool
        For lngZ = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            Sheets.Add.Name = .Cells(lngZ, 1) 'Name des neuen Blattes aus Spalte A
            .Rows(1).Copy
            [A2].PasteSpecial Transpose:=True 'Überschriften transponiert kopieren
            
            .Rows(lngZ).Copy
            [B2].PasteSpecial Transpose:=True 'Datenzeile transponiert kopieren
            [A1].Select
        Next
    End With
    
    Application.CutCopyMode = False
    Set wsDatenpool = Nothing 'Speicher für Variable wieder freigeben
End Sub

Ich habe den vorher zitierten Quellcode gefunden. Nun habe ich eine große Tabelle.

Ich benötige ein Makro was es schafft aus allen Zeilen ein einzelnes Tabellenblatt zu machen.

Wie sind die Befehle dafür, oder wie ist der obige Quellcode zu lesen?

Außerdem wird immer ein Fehler bei Worksheet ausgegeben, warum? Auch mit anderen Datentypen ging es nicht.
 

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
Rot Zeile in Tabelle
 13.06.2018 15:23:10 TheDeath508
NotSolved
13.06.2018 16:33:03 RPP63
NotSolved
13.06.2018 16:48:38 TheDeath508
NotSolved