Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro in Schleife

Forumthread: Makro in Schleife

Makro in Schleife
17.05.2019 18:42:31
Michael
Liebe Excelgurus,
bitte um Hilfe, habe schon lange nichts mehr programmiert, wer rastet der rostet.
Zelle Fn startet mit pra_001, in Zelle Fn+1 soll stehen pra_001rs und so fort.
Hab schon folgendes Makro aufgezeichnet das auch funktioniert.
Brauche es jedoch als Schleife von 1 bis n, wobei n abgefragt werden soll. 

Sub Makro3()
' Makro3 Makro
' Verketten z.B. pra_001_rs
' Tastenkombination: Strg+r
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C,""rs"")"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Danke für die Hilfe
mfG
Michael
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro in Schleife
17.05.2019 19:01:19
Michael
Hab vergessen wie die Spalte F weitergehen soll.
pra_001
pra_001rs
pra_002
pra_002rs
usw.
LG
Michael
AW: Makro in Schleife
17.05.2019 19:07:56
ChrisL
Hi Michael
Zielbild ist halbwegs klar, aber die Ausgangslage nicht (Excel-Beispieldatei hochladen schadet nicht).
Ich interpretiere mal...
Dim i as long
for i = 1 To Cells(rows.count, 7).end(xlup).row Step 2
cells(i+1,7) = cells(i,7)&"rs"
next i
cu
Chris
Anzeige
AW: Makro in Schleife
17.05.2019 19:39:24
Michael
Hallo Chris,
entschuldige, hab nicht genau beschrieben.
in Zelle F5 steht pra_001
in Zelle F6 soll stehen pra_001rs
in Zelle F7 soll stehen pra_002
in Zelle F8 soll stehen pra_002rs
in Zelle F9 soll stehen pra_003
in Zelle F10 soll stehen pra_003rs
usw.
Dein Code funktioniert angepasst, aber ist wegen meiner Angabefehler nicht komplett.
-------------
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
Cells(i + 1, 6) = Cells(i, 6) & "rs"
Next i
End Sub
-------------
LG
Michael
Anzeige
AW: Makro in Schleife
17.05.2019 19:56:45
ChrisL
Hi Michael
Vielleicht so...
Sub t()
Dim i As Long, x As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
x = x + 1
Cells(i, 6) = "pra_" & Format(x, "000")
Cells(i + 1, 6) = Cells(i, 6) & "rs"
Next i
End Sub
Falls Laufzeit ein Problem wird kann man ggf. noch optimieren.
cu
Chris
Anzeige
AW: Makro in Schleife
17.05.2019 19:59:51
ChrisL
analog Gerd... habe seine Antwort erst nachträglich gelesen
AW: Makro in Schleife
17.05.2019 20:43:48
Michael
Hallo Chris und Gerd,
eine Kleinigkeit bitte noch. Ich hätte gerne die Startzelle mit Abfrage bestimmt.
In der Spalte kommen manchmal auch folgende Kombination vor z.B.
Zelle Fn = pra_099
Zelle Fn +1 = pra_099ak_rs
Zelle Fn +2 = pra_099rs
Danke und LG
Michael
Anzeige
AW: Makro in Schleife
17.05.2019 20:55:54
Michael
Hallo Chris und Gerd,
eine Kleinigkeit bitte noch. Ich hätte gerne die Startzelle mit Abfrage bestimmt.
In der Spalte kommen manchmal auch folgende Kombination vor z.B.
Zelle Fn = pra_099
Zelle Fn +1 = pra_099ak_rs
Zelle Fn +2 = pra_099rs
Danke und LG
Michael
AW: Makro in Schleife
17.05.2019 21:55:56
GerdL
Hallo Michael!
Zelle Fn = pra_099
Zelle Fn +1 = pra_099ak_rs
Zelle Fn +2 = pra_099rs

Was möchtest du daraus ableiten?
Anzeige
AW: Makro in Schleife
18.05.2019 10:02:40
Michael
Hallo GerdL,
irgendwo in der Spalte F kann es wie folgt (fettgedruckt) z.B. erforderlich sein.
...
Zelle F109 = pra_098
Zelle F110 = pra_098rs
Zelle F111 = pra_099
Zelle F112 = pra_099ak_rs
Zelle F113 = pra_099rs
Zelle F114 = pra_100
Zelle F115 = pra_100rs
...
Ist nicht unbedingt notwendig, es reicht auch wenn ich die Startzelle und die Startnummer eures funktionierenden Makros bestimmen kann. Z.B. Starzelle F114, Startnummer 100.
Danke und LG Michael
Anzeige
AW: Makro in Schleife
17.05.2019 20:27:30
Michael
Hallo Chris und Gerd,
danke für eure identen Lösungen, funktioniert einwandfrei.
Hab mein Wissen wieder aufgefrischt und kann auch anpassen.
------------- 
Sub For_Next_Schleife_1()
Dim n As Long, Zeile As Long
For Zeile = 6 To Cells(Rows.Count, 1).End(xlUp).Row Step 2
n = n + 1
Cells(Zeile - 1, "F") = "pra_" & Format(n, "000")
Cells(Zeile, "F") = "pra_" & Format(n, "000") & "rs"
Next
End Sub

-------------
LG
Michael
Anzeige
AW: Makro in Schleife
17.05.2019 19:24:35
GerdL
Hallo Michael! 
Sub For_Next_Schleife_1()
Dim n As Long, Zeile As Long
For Zeile = 2 To 20 Step 2
n = n + 1
Cells(Zeile - 1, "A") = "pra_" & Format(n, "000")
Cells(Zeile, "A") = "pra_" & Format(n, "000") & "rs"
Next
End Sub
Gruß Gerd
;

Forumthreads zu verwandten Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
eine Schleife in Webabfrage
mehmet

Hallo Forum,
ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
Hier die Aufzeichnung bzw. überarbeitete Version:
Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
29.08.2008 09:30:05
Thread-ID: 1005675
2 Beiträge
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Schleife einbauen und variabler Tabellenname
Markus

Hallo zusammen,
nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
16.10.2008 19:25:00
Thread-ID: 1016959
3 Beiträge
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Anzeige
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 Beiträge
Schleife integer
Michael

Hallo!
Wenn in der Zelle E3:E40 ein Wert auftaucht der nicht einer Zahl entspricht, soll Ändern erscheinen.
Gruß Michael
28.01.2009 18:01:18
Thread-ID: 1044658
12 Beiträge
Wie kann ich hier eine Schleife ...
Thomas

Hi Profis,
Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und...
02.02.2009 11:29:00
Thread-ID: 1046127
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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