Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen kopieren und untereinander schreiben

Zellen kopieren und untereinander schreiben
29.06.2005 15:12:27
Kai
Hallo zusammen,
ich habe die Lösung zu meinem Problem hier schon mal gelesen, finde sie aber leider nicht mehr. Also:
Ich habe in Tabelle 1 ganz viele Zellen, in denen Ziffern stehen. Diese möchte ich jetzt in Tabelle 2 in Spalte A untereinander stehen haben. Gibt es in Excel 97 so eine Funktion?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren und untereinander schreiben
29.06.2005 17:11:19
Herbert
hallo kai,
das geht mit Makro relativ einfach...
z.B.für Spalte A:


Sub Z_kopieren()
Dim i%, lz%, ez%
Dim shQ As Worksheet, shZ As Worksheet
Set shQ = Sheets("Tabelle1")
Set shZ = Sheets("Tabelle2")
lz = shQ.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lz
    If shQ.Cells(i, 1) <> "" Then
        ez = shZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
        shQ.Cells(i, 1).Copy shZ.Cells(ez, 1)
    End If
Next
    
End Sub

     gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige