Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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


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

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)

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige