Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon berndx_möllerx vom 18.02.2019, 11:00 Options

neue tabelle erstellen

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

Antwort schreiben

Antwort 1 von Saarbauer vom 21.02.2019, 09:28 Options

Hallo,

würde sagen, ist nur mit VBA machbar.

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

Zitat:
eine Abfrage auf die Spalte 5 erfolgt

kannst du eine Beispieltabelle

http://www.netupload.de/

und den Link hier hinterlegen

Gruß

Helmut

Antwort 2 von Beverly vom 21.02.2019, 09:44 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken