Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA-Makro-Autom. immer eine Zeile tiefer rutschen

Forumthread: VBA-Makro-Autom. immer eine Zeile tiefer rutschen

VBA-Makro-Autom. immer eine Zeile tiefer rutschen
27.11.2003 10:57:30
Martin Hunte
Hallo,

es geht einfach nur um einen Serienbrief (Datenquelle in Excel) in der leider die Adressdaten untereinander stehen, welches Word aber nicht verarbeiten kann für Serienbriefe.

Ist:

Firma
Strasse
PLZ
(Leerzeile)
(Leerzeile)
(Leerzeile)
Firma
Strasse
PLZ
(Leerzeile)
(Leerzeile)
(Leerzeile)
usw.

Soll:

Firma Strasse PLZ (Alles in einer eigenen Spalte)
Firma Strasse PLZ
Firma Strasse PLZ

Habe folgenden Makro aufgenommen, aber diesem muss ich noch irgendwie sagen das er immer eine Zeile tiefer rutschen soll.

Range("B2").Select
Selection.Cut Destination:=Range("C1")
Range("B3").Select
Selection.Cut Destination:=Range("D1")
Rows("2:6").Select
Selection.Delete Shift:=xlUp
Range("B2").Select
Selection.Cut Destination:=Range("C1")
Range("B3").Select
Selection.Cut Destination:=Range("D1")
Rows("2:6").Select
Selection.Delete Shift:=xlUp
End Sub

Vielen Dank für Infos und Antworten!!

Gruß

Martin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Makro-Autom. immer eine Zeile tiefer rutschen
27.11.2003 11:05:34
Nike
Hi,
mal an ner Kopie ausprobieren, da Zellen glöscht werden...


Sub SerienbriefTransponierer()
i = 1
Do
Cells(i, 2) = Cells(i + 1, 1)
Cells(i, 3) = Cells(i + 2, 1)
i = i + 3
Rows(i).Delete
Rows(i).Delete
Rows(i).Delete
Loop Until Cells(i, 1) = ""
End Sub


Bye

Nike
Anzeige
AW: VBA-Makro-Autom. immer eine Zeile tiefer rutschen
27.11.2003 11:27:32
Martin Hunte
Hi! Das funktioniert noch nicht ganz richtig. Er löscht die ersten drei Zeilen, und dann läuft nur noch der Loop ohne eine Tätigkeit endlos.
AW: VBA-Makro-Autom. immer eine Zeile tiefer rutschen
27.11.2003 12:01:42
Nike
Hi,
dann eher so:


Sub SerienbriefTransponierer()
i = 1
Do
Cells(i, 2) = Cells(i + 1, 1)
Cells(i, 3) = Cells(i + 2, 1)
For step = 1 To 5
Rows(i + 1).Delete
Next
i = i + 1
Loop Until Cells(i, 1) = ""
End Sub


Bye

Nike
Anzeige
OK!!! VIELEN DANK!! FUNXT!! (o.t.)
27.11.2003 12:53:50
Martin Hunte
o.t.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige