Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.06.2025 16:23:59
18.06.2025 11:18:30
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

For-Schleife in Makro

Forumthread: For-Schleife in Makro

For-Schleife in Makro
Lukas
Hallo zusammen..
Habe hier ein Makro programmiert, welches mir zwei Texte miteinander verknüpft .
In diesem Beispiel wird der bestehende Text des Feldes A28 und A29 miteinander verknüfpt,
in ein "temporäres" nicht benutzes Feld gespeichert und schliesslich in das Feld A28 zurück kopiert.
Der Space wird benötigt, da im ersten Feld ein "=" am Anfang steht und er sonst Probleme hat..
Ich möchte nun mit einer for-Schleife dies für die Felder A32&A33, A36&A37 etc. wiederholen.
Wie genau kann ich da eine Variable erstellen und diese dann in der Verketten-Anweisung verwenden..?
Vielen Dank für eure Hilfe!

Sub Texte_verbinden()
With Range("AA1")
.FormulaLocal = _
"=VERKETTEN("" "";A28;A29)"
.Value = .Value
End With
Range("AA1").Copy
Range("A28").PasteSpecial
Range("AA1").Clear
Range("A29").Clear
End Sub


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: For-Schleife in Makro
23.06.2009 11:32:02
D.Saster
Hallo,
es ist unnötig, das über eine Formel zu machen.

Sub TexteVerbinden()
Dim i As Long
For i = 28 To 36 Step 4  'anpassen
Cells(i, 1) = " " & Cells(i, 1) & Cells(i + 1, 1)
Cells(i + 1, 1).Clear
Next
End Sub


Gruß
Dierk

Anzeige
AW: For-Schleife in Makro
23.06.2009 13:51:26
Lukas
Danke für die rasche Antwort. Funktioniert prima..
Jetzt eine andere Frage:
Ich habe verschiedene Zeilen (Anlage 1 rechts, Anlage 1 vorne, Anlage 2 rechts.....Anlage 15 vorne).
Ist es nun möglich, den Teil nach der Zahl (also rechts oder vorne) herauszufiltern und auf die nächste Zeile
zu schreiben?
Vielen Dank für die Hilfe
Gruss Lukas
Anzeige
AW: For-Schleife in Makro
23.06.2009 11:33:24
Yusuf
Hi,
es gibt in vba Moeglichkeiten Zelleninhalte zu verknuepfen. Du brauchst dann auch kein "Zwischenspeicher".
z.B.:
Zelle A28 & A29 werden verknuepft und vorne ran noch ein "Leerzeichen".
Cells(Zeile, Spalte)
cells(28,1) = " " & cells(28,1) & cells(29,1)

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