Daten ausschneiden über Makro :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Daten ausschneiden über Makro

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 29

Verfasst am: 15.04.2008, 11:26

Hallo,

ich bräuche wieder einmal Hilfe bei einer Excel-Tabelle.

Ich habe diese mal angehangen. Einige Daten im Tabellenblatt werden per Makro gelöscht, der rest formatiert.

Es ist doch bestimmt per Makro auch möglich, die übrig gebliebenen Daten auszuschneiden und diese im 2. Tabellenblatt (Ausgabe) am Ende einzufügen.

Wie ist der "Code" dafür?

Kann mir da jemand helfen? Wäre wirklich nett.

Gruß
michael

test 2.xls

Beschreibung:

Download

Dateiname:

test 2.xls

Dateigröße:

45 KB

Heruntergeladen:

10 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4403

Verfasst am: 15.04.2008, 15:09

Hallo!

Teste mal dies:

Code:

Sub test()
Dim Letzte As Integer
Letzte = Sheets("Ausgabe").Range("A65536").End(xlUp).Row + 1
Sheets("E00876").Range("A4").CurrentRegion.Offset(1, 0).Copy Sheets("Ausgabe").Cells(Letzte, 1)
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Bitte nimm dir die Zeit für eine (kurze) Rückmeldung, ob dir mein Beitrag geholfen hat oder nicht.
Andere User, die das gleiche (oder ein ähnliches) Problem haben, werden dir dankbar sein.

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 29

Verfasst am: 15.04.2008, 15:52

Hallo Schatzi,

ich habe den Code mal probiert. Da ich zwischenzeitlich noch bißchen was an der Tabelle geändert habe, habe ich den Code angepasst. Kannst Du den in der neue Tablle mal bitte prüfen. Leider funktioniert das Makro bei mir nach dem Einfügen Deiner Lösung nicht mehr. Entferne ich diese, funktioniert wieder alles. Ich nehme an, ich mache da irgendwas falsch.

Theoretisch soll der jetzt aus meinem Beispiel die Zeilen 6 - 32 (können aus mehr oder weniger Zeilen sein) formatieren (ist fertig) ausschneiden und in das "Ausgabe-Tabellenblatt" unten anfügen.

Danke Dir

Michael

test.xls

Beschreibung:

Download

Dateiname:

test.xls

Dateigröße:

121.5 KB

Heruntergeladen:

5 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 4403

Verfasst am: 15.04.2008, 16:00

Hallo!

Ungetestet:
Du hast im Blatt "Eingabe" noch eine Zeile eingefügt, daher kann das hier nicht mehr funktionieren:

Sheets("Eingabe").Range("A4").CurrentRegion.Offset(1, 0).Copy Sheets("Ausgabe").Cells(Letzte, 1)

Ändere das mal in A5.

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 29

Verfasst am: 15.04.2008, 16:22

Hallo Schatzi,

Das hätte mir eigentlich auch auffallen müßen. Jetzt funktioniert das einwandfrei.

Vielen vielen Dank
Michael

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Daten anhand des Datum aus eine Tabel...	lagenie	Microsoft Access Hilfe	0	12.05.2008, 18:59
	Daten-Maske aufrufen; Maske umbenennen.	timi	Microsoft Excel Hilfe	0	05.05.2008, 08:40
	VBA code für senden Formular über Lot...	wuffi	Microsoft Excel Hilfe	3	24.04.2008, 15:12
	Autofilter mit Zellbezug in ein Makro...	eiramasil	Microsoft Excel Hilfe	2	21.04.2008, 13:52
	Zellen verbinden per Shortcut, Makro ...	Jango666	Microsoft Excel Hilfe	2	15.04.2008, 17:33

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de