Office: Makro zum Ordnen

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!

 

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

 

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?

 

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

 

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!

 

Hallo!

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

 

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!

 

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

 

Tut mir leid, ich dachte es wäre nicht allgemein. :-|
Jetzt Klappt aber alles! Vielen Danke nochmal!
Morgen werd ich nochmal versuchen alles nachzuvollziehn ;-)