Makro zum Ordnen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Makro zum Ordnen

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

Autor

Nachricht

nitr0_ed
Newbie
Newbie

Anmeldedatum: 13.03.2008
Beiträge: 5

Verfasst am: 13.03.2008, 14:11

Hallo!

Ich hab zwar ein wenig Ahnung von C++, allerdings komm ich in VisualBasic nicht wirklich klar.
Mein Makro soll eine Tabelle, in der die gefüllten Zellen alle versetzt sind, untereinander anordnen.
Einzeln bekomm ich das schon hin, dass das markierte Feld entsprechend ausgeschniten und eingefügt wird. aber ich suche eine Möglichkeit einen markierten Bereich durchzugehen und in diesem untereinander ordnen.
Schonmal Danke für die Hilfe!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 13.03.2008, 14:25

Hallo!

Wenn ich dich richtig verstehe, dann suchst du wohl in etwa so etwas:

Code:

Sub test()
Dim x As Long
For x = 1 To UsedRange.Rows.Count
Do Until Cells(x, 1) <> ""
Cells(x, 1).Delete Shift:=xlToLeft
Loop
Next x
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!

nitr0_ed
Newbie
Newbie

Anmeldedatum: 13.03.2008
Beiträge: 5

Verfasst am: 13.03.2008, 16:21

Vielleicht liegt es nur an meinem Mangel an Verständnis, aber es poppt eine Fehlermeldung auf, dass ein Objekt erforderlich ist und markiert den Beginn der For-Schleife.
Was mach ich falsch, oder noch besser, was muss ich machen damit es richtig läuft?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 13.03.2008, 16:29

Hallo!

Wenn du den Code direkt ins Modul des Blatts kopierst, dann dürfte dieser Fehler eigentlich nicht auftauchen.
Wenn du ihn in einem allgemeinen Modul nutzen möchtest, dann vielleicht so:

Code:

Sub test()
Dim x As Long
With Sheets("DeinBlattname")
For x = 1 To .UsedRange.Rows.Count
Do Until .Cells(x, 1) <> ""
.Cells(x, 1).Delete Shift:=xlToLeft
Loop
Next x
End With
End Sub

nitr0_ed
Newbie
Newbie

Anmeldedatum: 13.03.2008
Beiträge: 5

Verfasst am: 13.03.2008, 16:56

Hi!

Der Code für ein allgemeines Modul wäre nicht nötig gewesen, aber ich kann mich nur wiederholen, dass der Laufzeitfehler '424' angezeigt wird und ein Objekt gefordert wird.
Allerdings habe ich jetzt eine Lösung eines ähnlichen Problemes gefunden, vielleicht hilft Dir das. Ich konnte es nicht für meine Bedürfnisse umbauen.

http://www.supportnet.de/listthread/1213258

Aber vorsichtshalber nochmal: In der Lösung geht es um leere Zeilen die übergangen werden sollen, bei mir sind es Zellen.

Vielen Dank soweit!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 13.03.2008, 17:13

Hallo!

Vielleicht habe ich dich auch falsch verstanden, aber in der angehängten Datei funktioniert es prächtig.

nitro.xls

Beschreibung:

Download

Dateiname:

nitro.xls

Dateigröße:

21.5 KB

Heruntergeladen:

11 mal

nitr0_ed
Newbie
Newbie

Anmeldedatum: 13.03.2008
Beiträge: 5

Verfasst am: 13.03.2008, 17:40

Hallo!

Anscheind hast Du misch schon komplett richtig verstanden und in Deiner angehängten Datei funktioniert es bei mir auch tadellos, allerdings nicht wenn ich den Code einfach in ein Modul von einer anderen Tabelle kopiere...
Ich hänge einfach mal eine Tabelle an und vielleicht könntest Du dort ja mal dieses Makro einfügen.
Ich komm mir langsam wirklich blöd vor!

test.xls

Beschreibung:

Download

Dateiname:

test.xls

Dateigröße:

23.5 KB

Heruntergeladen:

10 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 13.03.2008, 17:49

Hallo!

Also doch in einem allgemeinen Modul...
Hier dann nochmal mein letzter Code (inkl. Fehlerabfang für die Leerzeile 28):

Code:

Sub test()
Dim x As Integer
With Tabelle1
'Alternativ auch dies: With Sheets("Tabelle1")
For x = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(x)) > 0 Then
Do Until .Cells(x, 1) <> ""
.Cells(x, 1).Delete Shift:=xlToLeft
Loop
End If
Next x
End With
End Sub

nitr0_ed
Newbie
Newbie

Anmeldedatum: 13.03.2008
Beiträge: 5

Verfasst am: 13.03.2008, 18:29

Tut mir leid, ich dachte es wäre nicht allgemein. Neutral

Jetzt Klappt aber alles! Vielen Danke nochmal!
Morgen werd ich nochmal versuchen alles nachzuvollziehn Wink

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
	Problem beim Speichern einer Datei ub...	dobby110	Microsoft Excel Hilfe	1	07.10.2008, 10:51
	Frage zu Gültigkeitsliste und Makro f...	Gomorra	Microsoft Excel Hilfe	1	29.09.2008, 10:56
	Feldnamen durch Makro	raitsch	Microsoft Excel Hilfe	1	16.09.2008, 09:54
	Makro	Skatgott	Microsoft Excel Hilfe	3	15.09.2008, 10:51
	Hyperlink auf Excel-Tabelle mit Makro...	miriki	Microsoft Access Hilfe	2	11.09.2008, 14:47

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