Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichenkette per for-next-schleife erstellen

Zeichenkette per for-next-schleife erstellen
09.08.2008 19:06:00
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,5,6,7,...,45,46,47,48,49
Wie man sieht sollen die Zahlen per Komma getrennt sein, aber keine Leerzeichen enthalten!
Leider steht wenn ich den Button drücke nicht die Zeichenkette in E11, sondern 1225 :(

Private Sub CommandButton1_Click()
Dim anfang, ende, differenz, i As Integer
Dim zahlenkette As String
'Bereich für Professoren festlegen
anfang = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 2).Value
ende = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 3).Value
differenz = ende - anfang
zahlenkette = " "
For i = anfang To ende
If i = anfang Then
zahlenkette = i
Else
zahlenkette = zahlenkette + "," + i
End If
Next i
Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 5).Value =  _
zahlenkette
End Sub


Seht ihr meinen Fehler oder habt eine bessere (funktionierende) Methode das zu bewerkstelligen?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichenkette per for-next-schleife erstellen
09.08.2008 19:23:19
Hajo_Zi
Hallo Nick,
ich hätte nicht + benutzt sondern &

AW: Zeichenkette per for-next-schleife erstellen
09.08.2008 19:25:00
lauer
SUPER, danke!
Manchmal ist es wirklich zu einfach :)

AW: Zeichenkette per for-next-schleife erstellen
09.08.2008 19:41:12
Daniel
Hi
ja, wie HaJo schon gesagt hat, das Zeichen für das Verketten von Strings ist "&"
kleiner Tip, die IF-Abfrage innerhalb der Schleife kannst du dir sparen:

Private Sub CommandButton1_Click()
Dim anfang, ende, differenz, i As Integer
Dim zahlenkette As String
'Bereich für Professoren festlegen
anfang = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 2).Value
ende = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 3).Value
differenz = ende - anfang
 zahlenkette = ""
For i = anfang To ende
zahlenkette = zahlenkette & "," & i
Next i
Zahlenkette = Mid$(Zahlenkette, 2)
Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 5).Value =  _
zahlenkette
End Sub


oder so:


Private Sub CommandButton1_Click()
Dim anfang, ende, differenz, i As Integer
Dim zahlenkette As String
'Bereich für Professoren festlegen
anfang = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 2).Value
ende = Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 3).Value
differenz = ende - anfang
 zahlenkette = anfang
For i = anfang + 1 To ende
zahlenkette = zahlenkette & "," & i
Next i
Application.Workbooks("IDBereich.xlsm").Worksheets("Seiten").Cells(11, 5).Value =  _
zahlenkette
End Sub


innerhalb die Schleife sollte sich nur der notwendigste Code befinden, weil das kostest Rechenzeit (ich weiß, ist hier nicht relevant, aber nur so aus prinzip)
Gruß,Daniel

Anzeige
AW: Dim-Anweisung
09.08.2008 20:12:18
Erich
Hi Vorname,
noch ein Tipp:
Wenn anfang, ende, differenz und i den Typ Integer haben sollen, reicht
Dim anfang, ende, differenz, i As Integer
NICHT aus. anfang, ende, differenz sind dann Variant-Variablen.
Hiermit werden alle Variablen der Zeile zu Integers:
Dim anfang As Integer, ende As Integer, differenz As Integer, i As Integer
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

304 Forumthreads zu ähnlichen Themen

For-Next Schleifen schneller als While-Wend S.
Philipp

Hallo zusammen,
ich habe mal gelesen, dass For-Next Schleifen schneller als While-Wend Schleifen sind. Hat das einen Grund, den mir jemand erklären kann? Mal abgesehen davon das eine While-Wend Schleife nichts anderes macht als eine Do-Loop Schleife, meint der jenige, der While-Wend Schleif...
15.09.2008 19:12:00
Thread-ID: 1009879
2 Beiträge
Anzeige
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
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
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
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
Anzeige

Links zu Excel-Dialogen

CommandButton

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
1
5
5
6
10
13
10
12
5
8
4
6
6
19
6
9
8
16
10
3
7
1
4
7
2