Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2025 17:39:22
keine Daten Börsenhistorie für den 18.07.2025
19.07.2025 15:24:27
VBA Click-Routine Option-Button
19.07.2025 14:48:31
wenn Funktion mit mehreren Bedingungen
19.07.2025 07:22:38
Datei hochladen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

Kategorie
Programmierung
Tags
#makro #serienbrief #vba
Relevante Fragen
Anzeige
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

von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Wenn Wert 0 dann MsgBox
Heinz

Schönen Vormittag im Forum
Ich habe eine Arbeitsmappe mit "Jänner" bis "Dezember"
In den jeweiligen Sheets steht das Datum in C1:AG1
Ich möchte nun wenn zum Beispiel im "Oktober" D1 ist der 2.Oktober und D168 ist gleich 0 das eine MsgBox erscheint "2.Okt. in Schicht 1 kein "VA"
...
15.09.2010 07:02:26
Thread-ID: 1177448
23 Beiträge
Wenn Wert in Spalte A sich aendert dann Leer Zeile
buliwyf

Hallo Freunde,
ich hoffe erneut ihr koennt mir helfen. Fuer mich eine nicht wirklich leichte Aufgabe.
Mit wenn...Funktionen komme ich da nicht weit.
Folgendes: ich habe ein Macro:
Sub Auto_open() Dim strDatei As String, strPfad As String, sFile As String Dim strText, arrHeader,...
12.09.2011 12:26:49
Thread-ID: 1229453
9 Beiträge
Ähnlich Sverweis Bereich von bis...
bis...

Hallo und schönen Guten Abend zusammen,
leider bisher erfolglos bei meiner Suche nach einer passenden Formel. Deshalb wende ich mich an die Experten in diesem Forum.
Beschreibung:
Ich habe ca. 100 Zeilen, in denen in Spalte A und Spalte B jeweils 5 stellige Zahlen enthalten sind.
14.12.2011 19:57:06
Thread-ID: 1242163
8 Beiträge
Anzeige
Ähnlich Sverweis Bereich von bis...
bis...

Hallo und schönen Guten Abend zusammen,
leider bisher erfolglos bei meiner Suche nach einer passenden Formel. Deshalb wende ich mich an die Experten in diesem Forum.
Beschreibung:
Ich habe ca. 100 Zeilen, in denen in Spalte A und Spalte B jeweils 5 stellige Zahlen enthalten sind.
14.12.2011 20:28:17
Thread-ID: 1242164
3 Beiträge
Anzeige
Ähnlich Sverweis Bereich von bis...
bis...

Hallo und schönen Guten Abend zusammen,
leider bisher erfolglos bei meiner Suche nach einer passenden Formel. Deshalb wende ich mich an die Experten in diesem Forum.
Beschreibung:
Ich habe ca. 100 Zeilen, in denen in Spalte A und Spalte B jeweils 5 stellige Zahlen enthalten sind.
14.12.2011 20:38:58
Thread-ID: 1242172
3 Beiträge
Anzeige
WENN Wert >X DANN Maximal y
Astis

Hallo ich brauche eine Lösung für folgende Aufgabe.
Ein Reihe von Ergebnisen wird berechnet.
Wenn ein Wert daraus größer als 200.000 ist, dann soll nicht das tatsächliche Ergebnis z.B. 247.000
dargestellt werden sondern eben maximal 200.000
21.07.2012 10:50:48
Thread-ID: 1272075
4 Beiträge
SVerweis, erweitern - Zeilen unterhalb ausgeben
Dominic

Hi,
ich benötige eine Art SVERWEIS allerdings, muss dieser nicht nur die Spalten nach rechts zum Ausgabewert durchgehen sondern in Abhängigkeit einiger anderer Zellen zwischen 1-3 Zeilen nach unten.
Anbei eine Testdatei:https://www.herber.de/bbs/user/86560.xlsx
Hoffe einer kann mir...
25.07.2013 17:12:47
Thread-ID: 1324154
10 Beiträge
Anzeige
Datum "von-bis" nach Monaten auswerten
Tobias

Hallo,
ich habe eine Tabelle, in der für mehrere hundert Mitarbeiter der Urlaub eingetragen wird.
Die Tabelle enthält die Spalten "Urlaub von" und "Urlaub bis". Anhand dieser beiden Zeiträume möchte ich erreichen, dass sich der Urlaub nach Monaten auswerten lässt. Ein Beispiel habe ich...
02.04.2014 09:39:40
Thread-ID: 1355794
4 Beiträge
Per Button eine Zeile tiefer in Listbox
ANNAnas

Heyho :)
ich habe da mal eine Frage... ist es möglich mit einem Button in der Userform einen Eintrag tiefer in der Listbox zu gehen? Wenn ja - wie?! :D
Mein Code funktioniert leider nicht...:
Private Sub CommandButton9_Click() Selection.Offset(1, 0).Select End Sub LG
23.04.2014 14:51:52
Thread-ID: 1358297
4 Beiträge
Wiedergabe bei SVerweis von 2 identischen Werten
2

Hallo,
habe ein Problem bei meiner Datei.
Habe 2 Tabellenblätter mit je 2 Spalten.
In Spalte 2 der Tabelle1 sollen die Werte entsprechend der Punktzahl von Spalte 2 der Tabelle2 wiedergegeben werden.
Das funktioniert soweit auch sofern die Punktzahl nur einmal vergeben wurde, s...
04.05.2014 08:50:21
Thread-ID: 1359627
15 Beiträge
Wenn Wert1 oder Wert2 dann - als Matrix
Andreas
Hallo Excelprofis,
Ich habe eine Tabelle in die per Makro alle Urlaubstage eines Mitarbeiters aus einem anderem Blatt eingetragen werden.
https://www.herber.de/bbs/user/91579.xlsm
In dieses Blatt sollen dann die Urlaubstage untereinander aufgelistet werden.
Also:
Wenn in Zeile...
19.07.2014 08:46:24
Thread-ID: 1371152
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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