VBA, nach leerer Zelle Rest der Zeile verschieben :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] VBA, nach leerer Zelle Rest der Zeile verschieben

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

Autor

Nachricht

DanielDetzer
Newbie
Newbie

Anmeldedatum: 18.09.2008
Beiträge: 3

Verfasst am: 18.09.2008, 15:04

Hallo,

benötige eine Funktion, die eine Tabelle Zeile für Zeile durchgeht und nach der ersten leeren Zelle sucht. Hat es diese gefunden, soll es alles rechts von der leerzelle um eine bestimmte Anzahl Zellen nach rechts verschieben. Wenn z.B. die Leerzelle schon die zweite Zelle von links ist dann 6 Felder nach rechts, ist es die dritte, dann nur noch 5 Felder usw. Ist sowas möglich.

Möchte darauf hinweisen, dass ich relativer Anfänger bin, deshalb bitte einfach und deutlich erklären.

Danke im Vorraus
Daniel

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 18.09.2008, 15:28

Hallo!

Zitat:

Wenn z.B. die Leerzelle schon die zweite Zelle von links ist dann 6 Felder nach rechts, ist es die dritte, dann nur noch 5 Felder usw.

Das dürfte gleichbedeutend sein mit: "Verschiebe diesen Teil in die achte Spalte", oder?
Dann test mal diesen Code:

Code:

Sub test()
'Erste Zeile definieren:
Const ErsteZ = 1
'Letzte Zeile definieren:
Const LetzteZ = 5
Dim Spalte As Integer, Zeile As Long
Zeile = ErsteZ
'Durchlaufe alle Zeilen:
Do
Spalte = 0
'Durchlaufe die Spalten der Zeile...
Do
Spalte = Spalte + 1
'...bis die Zelle leer ist.
Loop Until Cells(Zeile, Spalte) = ""
'Schneide den Teil rechts der Leerzelle bis Spalte 100 aus
'und füge ihn in der achten Spalte wieder ein.
Range(Cells(Zeile, Spalte + 1), Cells(Zeile, 100)).Cut Cells(Zeile, 8)
Zeile = Zeile + 1
'Letzte Zeile erreicht?
Loop Until Zeile > LetzteZ
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!

DanielDetzer
Newbie
Newbie

Anmeldedatum: 18.09.2008
Beiträge: 3

Verfasst am: 23.09.2008, 10:32

Danke, funktioniert genau wie es sollte. Perfekt. Vielen Vielen Dank

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
	Zelleninhalte abgleichen nach Doppelten	Knuddl	Microsoft Excel Hilfe	7	19.11.2008, 10:42
	Ordner verschieben?Anderst anordnen?	FelixCH	Microsoft Outlook Hilfe	2	19.11.2008, 10:09
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	komplette Zeile ausblenden, wenn Tabe...	enzo	Microsoft Excel Hilfe	11	18.11.2008, 12:17
	Nach start sofort absturz	hadieb	Microsoft Outlook Hilfe	6	13.11.2008, 14:18

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