Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe eine Tabelle mit 1250 Datensätzen und 12 Spalten. Ich möchte aus meiner Tabelle alle 1250 Datensätze in eine andere Tabelle übertragen, wobei alle Zeilen copiert werden müssen und zusätzlich jeweisl eine Abfrage auf die Spalte 5 erfolgt, wenn da ein Eintag enthalten ist, soll diese Zelle in der neuen Tabelle als zusätzliche Zeile in Spalte 1 unter der zuvor eingelesenen Zeile übertragen werden. Ich hoffe mit meiner Beschreibung könnt Ihr etwas anfangen und mir möglicherweise ein Makro zurecht programmieren. Es wäre sehr lieb von Euch. Vielen Dank und schönen Gruß aus Hamburg. Bernd

Hallo,

würde sagen, ist nur mit VBA machbar.

Da die Angaben nicht präzise genug sind, ist es schwierig.

kannst du eine Beispieltabelle

http://www.netupload.de/

und den Link hier hinterlegen

Gruß

Helmut

Hi Bernd,

meinst du so

Sub kopieren()
    Dim loZeile As Long, loZähler As Long
    loZähler = 1
    For loZeile = 1 To 1250
        Range(Cells(loZeile, 1), Cells(loZeile, 12)).Copy Worksheets("Tabelle2").Cells(loZähler, 1)
        If Cells(loZeile, 5) <> "" Then
            loZähler = loZähler + 1
            Range(Cells(loZeile, 1), Cells(loZeile, 12)).Copy Worksheets("Tabelle2").Cells(loZähler, 1)
        End If
        loZähler = loZähler + 1
    Next loZeile
End Sub

Bis später,
Karin

• Verknüpfung von Pivottabelle zu Tabelle zu Diagramm
• Tabelleninhalte einer excel-Tabelle kopieren und in eine neue Tabelle einfügen
• täglich Daten in neue Zeile kopieren
• Access-Tabelle: Wie füge ich Felder an eine aus Excel übernommene Tabelle an?
• 2 Excel-Tabellen vergleichen und neue Tabelle erstellen