Guten morgen,

ich bin was VBA Programmieren angeht die absolute Anfängerin. Nun hab ich eine Aufgabe bekommen, wo in Tabelle1 Daten stehen und ich den Kundennamen auslesen soll und in Tabelle2 schreiben soll. Leider bin ich grad ein bissel ahnungslos wie das Funkionieren soll. Habe damit angefangen aber komm nicht weiter.

Sub Daten_Verschieben()


    'Zuordnung der Variablen

    Dim Zelle As Variant


    'Zuordnung der Tabellenblätter

    Sheets("Tabelle1").Cells(3, 4).Value

    Sheets("Summe").Cells(2, 1).Value


    While Sheets("Tabelle1").AktiveCell.Value <> ""

        While Sheets("Summe").AktiveCell.Value = ""

            Summe.Cells = Tabelle1.Cells

        Wend

    Wend


End Sub

Wollte mal fragen ob man den Anfang so lassen kann und evt hat ja jemand einen Tip wie ich weiter machen muss.

Danke schon mal im Vorraus

Liebe Grüße die Zicke

hi...

als erstes die Frage, für was deklarierst du Zelle?

desweiteren musst du bestimmt darauf achten ob "AktiveCell" oder "ActiveCell"...

und ganz einfach kannst du den Quelltext dafür rausfinden indem du dir ein Makro in Excel aufzeichnest und in diesem Makro den kompletten Ablauf einmal durchgehst...ansonsten hilft dir ein Struktogramm!

Makro aufzeichen --> Tabelle1 anwählen --> die erste gewünschte Zelle anwählen --> STRG-V drücken (kopieren) --> Summe anwählen --> leere Zelle nehmen --> STRG-C drücken (einfügen) --> Makro Aufzeichnung beenden

jetzt kannst du dir den Quelltext in einem Modul anschauen...

nun musst du nur noch, wie du richtig gemacht hast die while drum legen und es variabel gestalten....

bei weiteren Fragen...einfach posten!!!