---

Hi bin neu hier und Danke für jede Hilfe.

Mach grad ne Ausbildung zum Informaikkaufmann. Bin derzeit in meinem Praktikum und arbeite an mein Projekt für die Abschlussprüfung.

Arbeite mit Excel 2010. Es ist so, ich hab zwei Registerkarten die eine heißt Mitarbeiter die andere Stationen. Nun hab ich ein Button erstellt das mir bestimme Spalten von Mitarbeiter in bestimmte Spalten in Stationen kopiert.

Mein Problem ist jetzt, wie schaff ich es, das wenn ich was in Stationen zusätzlich reinschreib dies nicht überschrieben wird, sonder bei der Einfügung der Daten von Mitarbeiter ab der nächsten leeren Zeile weitergemacht wird?

Hier mal mein Code, den ich bis jetzt hab:

Sub Schaltfläche10_Klicken()
Dim summary As String
Worksheets("Mitarbeiter").Range("A2:A2000").Copy Destination:=Worksheets("Stationen").Range("A2")
Worksheets("Mitarbeiter").Range("F2:F2000").Copy Destination:=Worksheets("Stationen").Range("B2")
Worksheets("Mitarbeiter").Range("D2:2000").Copy Destination:=Worksheets("Stationen").Range("C2")
Worksheets("Mitarbeiter").Range("E2:E2000").Copy Destination:=Worksheets("Stationen").Range("D2")
Worksheets("Mitarbeiter").Range("G2:G2000").Copy Destination:=Worksheets("Stationen").Range("E2")
End Sub

Wär für Eure Hilfe dankbar da ich echt mittlerweilen am verzweifeln bin!

Gruß DenizEmin

------------------
Eine Schlussfolgerung ist die Stelle, an der man zu faul wird weiter zu denken.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Herzlichh Willkommen im Excel-Brett von CAD.de 

vorab: Sysinfo: 2007, Text: 2010. Was stimmt?

Zum Problem:
>> Destination:=Worksheets("Stationen").Range("A2")

Hier vergibst Du eine feste Adresse.

Du willst aber dass:
>> bei der Einfügung der Daten von Mitarbeiter ab der nächsten leeren Zeile weitergemacht wird

Du möchtest also schauen, ob in der Zielzelle schon etwas steht und wenn ja, dann willst Du in die nächste Zeile schreiben.

Geh mal weg von der festen Adressvorgabe (.Range("A2")) und hin zur Abhängigkeit von der Zeile/Spalte (.Cells(1,1)), damit kommst Du dann sicher weiter.

Beispiele/codeschnipsel für Deine Aufgabenstellung findest Du auch schon im Forum.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Willkommen beim Excel-Brett!

Ist die "nächste leere Zeile" vielleicht auch rein zufällig immer die erste leere Zeile im Register? Dann ist die vorhergehende die letzte benutzte . Schmeiß' mal den Macro-Recorder an und drücke Strg+Ende.

Evtl. ist der VBA-Befehl "Offset" von Bedeutung...

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP