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: 49

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:

22 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

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
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

msdd79
Newbie
Newbie

Anmeldedatum: 15.07.2007
Beiträge: 49

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:

27 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

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: 49

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 Suchen und in Neuer Tabelle erg...	saschathede	Microsoft Excel Hilfe	1	14.10.2008, 16:36
	Hilfe!!Lieferscheine über Excel	sevinunu	Microsoft Excel Hilfe	0	07.10.2008, 17:04
	Problem beim Speichern einer Datei ub...	dobby110	Microsoft Excel Hilfe	1	07.10.2008, 10:51
	Aus verschienen Tabellen gefiltert Da...	ipsec76	Microsoft Access Hilfe	1	02.10.2008, 16:57
	Bilder "ausschneiden"?	Gethsemane	Microsoft PowerPoint Hilfe	0	01.10.2008, 10:26

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