Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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.
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
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

300 Forumthreads zu ähnlichen 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
Anzeige
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
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 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
Verschachtelte For Next Schleife zusammenfassen
Illusion

Hi
Ich habe ein Makro, das nach folgendem Schema aufgebaut ist:
Dim i%, j%, k%, Summe% Dim ws As Worksheet Set ws = Worksheets("Liste") For i = 1 to 3 For j = 4 to 6 For k = 7 to 9 Summe= ws.cells(i, 2).value + ws.cells(j, 2).value + ws.cells(k, 2).value Next k Next j Next i
Mein P...
17.12.2009 12:55:13
Thread-ID: 1124631
14 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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7