Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem bei For-Next-Schleife

Forumthread: Problem bei For-Next-Schleife

Problem bei For-Next-Schleife
17.12.2020 20:38:50
Alex
Hallo zusammen,
ich habe noch nicht allzu viel Erfahrung mit VBA, habe es aber geschafft mir eine kleine Arbeitshilfe zu erstellen und würde nun gerne den Code etwas vereinfachen, um besser den Überblick behalten zu können, wenn ich hin und wieder etwas ergänze oder ändere. Eigentlich spielt sich das ganze in Word ab, ich hoffe aber ihr könnt mir trotzdem ein paar Tips geben. Ich denke nicht, dass es sich um ein word-spezifisches Problem handelt.
Aktuell habe ich folgenden Code: 

ActiveDocument.FormFields("Name1").Result = strBis1
ActiveDocument.FormFields("Name2").Result = strBis2
ActiveDocument.FormFields("Name3").Result = strBis3
ActiveDocument.FormFields("Name4").Result = strBis4
ActiveDocument.FormFields("Name5").Result = strBis5
ActiveDocument.FormFields("Name6").Result = strBis6
ActiveDocument.FormFields("Name7").Result = strBis7

Nun würde ich das Ganze gerne mit einer For-Next-Schleife lösen. Hier bisheriger Ansatz: 

For intA = 1 To 7
ActiveDocument.FormFields("Name" & intA).Result = strBis
Next intA

Ich bekomme es einfach nicht hin, dass beim ersten Durchgang die Variable strBis1, beim zweiten Durchgang die Variable strBis2 usw. in das jeweilige Formularfeld geladen wird.
Kann mir jemand von euch sagen, wie ich das realisieren kann?
Viele Grüße
Alex
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem bei For-Next-Schleife
17.12.2020 20:40:56
Hajo_Zi
Hallo Alex,
ActiveDocument.FormFields(Controls("Name" & intA)).Result = strBis
ich bin nicht der Word Fachmnann.

AW: Problem bei For-Next-Schleife
17.12.2020 21:05:01
onur
Mit einem ARRAy statt strBis. 
Dim i, strBis
strBis=Array("Lesezeichen1","Lesezeichen2","Lesezeichen3" .....)
For i = 0 To 6
ActiveDocument.FormFields("Name" & i+1).Result = strBis(i)
Next intA

Anzeige
AW: Problem bei For-Next-Schleife
18.12.2020 09:54:38
Alex
Guten Morgen onur,
Ich habe es noch nicht ganz geschafft mein Problem mit deinem Ansatz zu lösen. So sieht das Ganze jetzt bei mir aus:
Dim i, strBis
strBis = Array("strBis1", "strBis2", "strBis3", "strBis4", "strBis5", "strBis6", "strBis7")
For i = 0 To 6
ActiveDocument.FormFields("Name" & i + 1).Result = strBis(i)
Next i

So werden allerdings die Formularfelder Name1 bis Name7 mit strBis1 bis strBis7 gefüllt. strBis1 bis strBis7 sind allerdings Variablen und der Inhalt dieser Variablen soll in den Formularfeldern erscheinen, nicht der Name.
Ich hoffe es ist einigermaßen nachvollziehbar was ich meine.
Viele Grüße
Alex
Anzeige
AW: Problem bei For-Next-Schleife
18.12.2020 13:22:17
onur
Du sollst nicht strBis1 usw sondern die Namen der Lesezeichen ins Array schreiben.
AW: Problem bei For-Next-Schleife
18.12.2020 13:22:18
onur
Du sollst nicht strBis1 usw sondern die Namen der Lesezeichen ins Array schreiben.
AW: Problem bei For-Next-Schleife
18.12.2020 13:22:20
onur
Du sollst nicht strBis1 usw sondern die Namen der Lesezeichen ins Array schreiben.
Anzeige
AW: Problem bei For-Next-Schleife
18.12.2020 13:22:20
onur
Du sollst nicht strBis1 usw sondern die Namen der Lesezeichen ins Array schreiben.
AW: Problem bei For-Next-Schleife
18.12.2020 16:54:51
Yal
Hallo Alex,
irgendwo hast Du diese Variablen strBis.. initialisiert, spricht mit Werte befüllt.
Also anstatt 
strBis1 = "a"
strBis2 = "b"
strBis3 = "c"
(oder was auch als string reinkam)
Die Initialisierung kann auf 2 Methode gemacht werden:
1. En Block 
strBis = Array ("a", "b", "c", ..)
2. Einzel 
strBis(1) = "a"
strBis(2) = "b"
strBis(3) = "c"
Note: ein Array mit 7 "Plätze" nummeriert diese von 0 bis 6. Wenn Du eine Nummerierung 1 bis 7 haben möchtest, muss Du entweder bei der Definition 
Dim strBis (1 To 7) as String

oder bei einer undimensionerten Definition, bei der Redimensionierung 
Dim strBis() as String
ReDim strBis (1 To 7)
Viel Erfolg
Yal
Anzeige
AW: Problem bei For-Next-Schleife
21.12.2020 19:53:50
Alex
Hallo Yal,
vielen Dank für deine Erklärung. Das mit dem Array habe ich soweit verstanden, denke ich.
Die Variablen werden aber, abhängig von verschiedenen Bedingungen, unterschiedlich gefüllt. Ich glaube das funktioniert so dann nicht so ohne weiteres mit einem Array.
Durch das Herumprobieren, habe ich aber gemerkt, dass ich die Variablen gar nicht brauche und habe die ganze Stelle Code weglassen können. Das Problem hat sich also, zumindest erst einmal erledigt.
Viele Grüße
Alex
Anzeige
AW: Problem bei For-Next-Schleife
18.12.2020 09:50:59
Alex
Guten Morgen,
der Ausdruck "Name" & intA innerhalb der Klammer in meinem Ansatz funktioniert. Das Problem müsste bei den Variablen strBis1 bis strBis7 liegen.
Ich habe bei meinem ursprünglichen Ansatz die Zahl hinter strBis vergessen. Deswegen war wohl nicht ganz klar, was ich versuche. Das ist mein Ausgangsansatz:
For intA = 1 To 7
ActiveDocument.FormFields("Name" & intA).Result = strBis1
Next intA
Meine Idee war, die 1 hinter strBis durch intA zu ersetzen. Daran scheitere ich jedoch bis jetzt.
Viele Grüße
Alex
Anzeige
;

Forumthreads zu verwandten Themen

Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
For Next Schleife - Performance
Christoph

Hallo VBA-Experten!
Bin im VBA-Sektor erst seit 3 Tagen aktiv (Selbsteinschulung :-) ). Habe jetzt aber leider ein rießiges Problem und bitte ganz dringend um Eure Hilfe:
In meinem Bericht (siehe Anhang - https://www.herber.de/bbs/user/62579.zip)
soll folgendes passieren:
Der Be...
19.06.2009 17:54:19
Thread-ID: 1082980
6 Beiträge
For-Next Schleife
Micha

Hey,
hat einer von Euch ne Ahnung, warum mir in der folgenden Prozedur eine 3,3,5,5 ausgegeben wird ? - sollte m.E. nach eine 3,4,5,6 sein.
Sub Test5() Repetition = 0 For i = 0.03 To 0.05 Step 0.01 Repetition = Repetition + 1 Next Cells(3, 14) = Repetition Repetition = 0 For i = 0.03 To...
12.11.2009 11:29:23
Thread-ID: 1116427
7 Beiträge
Anzeige
Sytanx zur ForNext-Schleife
Jörg-HH

Guten Abend zusammen,
habe einen Knoten mit der richtigen Schreibweise...
In einem Blattcode steht:
If Target.Address = Range("Hilfszelle2").Address Then Call machwas2 End If If Target.Address = Range("Hilfszelle3").Address Then Call machwas3 End If usw... bis 5
in einem Modul...
08.12.2009 20:44:25
Thread-ID: 1122490
11 Beiträge
For...Next Schleife anstelle Do until...Loop | Herbers Excel-Forum
Stefan
Hallo zusammen,
ich habe eine Do...Loop Schleife und würde diese gerne durch eine For...Next Schleife ersetzten.
Geht das in diesem Fall überhaupt? Sub loop() Dim iRow As Integer iRow = 5 Do Until Cells(iRow - 1, 1).Value = "x" If IsEmpty(Cells(iRow, 1)) Then End If iRow = iRow + 1 Loop End...
14.01.2010 15:23:09
Thread-ID: 1129973
11 Beiträge
Anzeige
For Next Schleife ?
Leitz

Hallo!
Wie kann ich eine For Next Schleife so ändern, daß sie aufhört sobald die erste Übereinstimmung gefunden wurde?
Oder muß ich da was anders vewenden?
Sub DatumSuche() Dim Datum As Date Datum = Cells(3, 5) 'Testdatum Dim a As Integer For a = 100 To 3 Step -1 If Cells(a, 1).Text...
09.02.2010 18:48:49
Thread-ID: 1137145
13 Beiträge
dynamische For Next Schleife
Steffen

Hallo zusammen,
ich habe eine For next Schleife, der obere Bereich soll hier bei dynamisch sein, da während der Prozedur Zeilen eingefügt werden. Ich habe es mit folgendem Code probiert wobei der obere Bereich auch hochgezählt wird aber die Schleife bei dem Ursprungswert beendet wird.
D...
19.02.2010 12:24:57
Thread-ID: 1139740
6 Beiträge
Anzeige
For Next Schleife umschreiben
Alex

Hallo zusammen,
ich habe hier eine ForNext-Schleife, die ich so nicht lassen kann.
Wenn die Bedingung nicht erfüllt ist soll ein Parameter gesetzt werden.
Wenn die Bedingung erfüllt ist , wird eine Abfrage gemacht, ob die Datei überschrieben werden soll. Wird diese Abfrage n...
06.05.2010 13:15:30
Thread-ID: 1155800
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
Anzeige
For Next Schleife
Alex

Hallo zusammen,
in einer Zelle "zB. A5" habe ich eine Nummer.
Diese Nummer soll untereinander so oft wie in einer anderen zelle angegeben um eins erhöht werden.
Ich habe versucht dies über eine for next schleife zu lösen, aber ich bekomme den Verweis von 1 to Zelle nicht hin und in...
02.09.2010 07:56:31
Thread-ID: 1175352
7 Beiträge
for next schleifen problem
carstenas

Hallo Forum
Ich bastel zur Zeit an einer Datei für meine Kollegen bin aber an einem Punkt angekommen wo ich nicht mehr weiter komme.Mein Problem sind For Next schleifen.
Dass Problem sind 2 Tabellen zu vergleichen.Es gibt 8 Tabellen Mo-So und eine Übersicht wo die werte aus den Tabellen...
14.11.2010 17:00:29
Thread-ID: 1186723
20 Beiträge
For Next Schleife für Fomel ausfüllen
Karsten

Hallo
Ich möchte eine Tabelle mit Formeln füllen:
=SUMME(alle_Spiele!O4:O12)
=SUMME(alle_Spiele!R4:R12)
=SUMME(alle_Spiele!U4:U12)
usw...
Spalte erhöht sich immer um 3 Spalten
In der nächsten Spalte erhöhen sich die Zahlen um jeweils 9.
=SUMME(alle_Spiele!O13:O21...
28.12.2010 10:13:18
Thread-ID: 1193013
7 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