Excel2000-kopieren in letzte Zeile

Dieses Thema im Forum "Office-Programme" wurde erstellt von sidkleu, 3. Januar 2003.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. sidkleu

    sidkleu ROM

    Registriert seit:
    3. Januar 2003
    Beiträge:
    1
    Hallo!
    Ist sicherlich kein echtes Problem, aber ich kriege es nicht hin:
    Ich möchte Daten mit Hilfe eines Makros von einem Tabellenblatt an das Ende einer Tabelle in ein anderes Blatt kopieren, also in die nächste freie Zeile. Dabei ist Spalte A bereits nummeriert, der neue Datensatz wird somit beginnend in Spalte B eingeschrieben. Da die Daten in Blatt 1 senkrecht vorliegen, in Blatt 2 aber waagerecht gebraucht werden, müssen sie transponiert werden. Außerdem werden nur die Werte und keine Formate oder ähnliches kopiert.

    Vielen Dank für Eure Hilfe!
    sidkleu
     
  2. DennisX

    DennisX Byte

    Registriert seit:
    23. März 2002
    Beiträge:
    118
    Hallo!
    Wahrscheinlich mußt Du es noch ein wenig an Deine Bedürfnisse anpassen:
    Sub Copy()
    Dim ReiheT1 As Integer
    Dim SpalteT1 As Integer
    ReiheT1 = 1
    SpalteT1 = 1
    While Not (Sheets("Tabelle1").Cells(ReiheT1, SpalteT1).Value = 0)
    While Not (Sheets("Tabelle1").Cells(ReiheT1, SpalteT1).Value = 0)
    Sheets("tabelle2").Cells(SpalteT1, 1 + ReiheT1) = Sheets _("tabelle1").Cells(ReiheT1, SpalteT1)
    ReiheT1 = ReiheT1 + 1
    Wend
    SpalteT1 = SpalteT1 + 1
    ReiheT1 = 1
    Wend
    End Sub

    mfg
    DennisX
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen