Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
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
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen mit Text in Schleife

Zahlen mit Text in Schleife
14.08.2019 12:36:44
Michael
Hallo Gurus,
heute gehts wieder einmal gar nicht. Macros anpassen kann ich wohl aber komplexer geht nach längerer Pause nicht mehr.
In Zelle F3 steht 22.649.tif
in Zelle F4 soll stehen 22.649rs.tif
usw. nach dem Muster
22.649.tif
22.649rs.tif
22.650.tif
22.650rs.tif
22.651.tif
22.651rs.tif
...
Die Zahl z.b. 22.649 soll beim Start abgefragt werden und auch bis zu welcher Zahl die Schleife durchlaufen soll.
Danke LG Michael
heute ein bisserl plemplem ;-)

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

Betreff
Datum
Anwender
Anzeige
AW: Zahlen mit Text in Schleife
14.08.2019 12:50:50
Johannes
Hi Michael,
soll denn die Abfrage per InputBox für den Start- und Endwert erfolgen?
Und an welcher Stelle sollen die Daten eingefügt werden?
Ansonsten jetzt erstmal hier mein Vorschlag:
Sub Zahlenreihe()
Dim intStart As Long
Dim intEnde As Long
Dim i As Long
Dim Row As Integer: Row = 1
Dim strZahl As String
intStart = 22649
intEnde = 22655
For i = intStart To intEnde
strZahl = CStr(i) & ".tif"
ActiveSheet.Range("A" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
strZahl = CStr(i) & "rs.tif"
ActiveSheet.Range("A" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
Next i
End Sub

Gruß,
Johannes
Anzeige
AW: Zahlen mit Text in Schleife
14.08.2019 13:01:02
Michael
Hallo Johannes,
danke, ja der Start- und Endwert soll mit Inputbox abgefragt werden.
In diese Zellen sollen die Daten eingefügt werden.
Zelle F3 22.649.tif
Zelle F4 22.649rs.tif
Zelle F5 22.650.tif
Zelle F6 22.650rs.tif
Zelle F7 22.651.tif
Zelle F8 22.651rs.tif
...
usw.
werde dein Makro abends ausprobieren.
Danke Michael
AW: Zahlen mit Text in Schleife
14.08.2019 13:09:30
Johannes
Hi Michael,
also nach meinem Verständnis sollen die Zahlen dann IMMER in F3 starten?!
Start- und Endwert werden jetzt per InputBox abgefragt:
Sub Zahlenreihe()
Dim intStart As Long
Dim intEnde As Long
Dim i As Long
Dim Row As Integer: Row = 3
Dim strZahl As String
' Abfrage von Start- und Endwert per Inputbox
intStart = InputBox("Geben Sie einen Startwert an:")
intEnde = InputBox("Geben Sie einen Endwert an:")
For i = intStart To intEnde
' Erstes Zahlenformat
strZahl = CStr(i) & ".tif"
ActiveSheet.Range("F" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
' Zweites Zahlenformat
strZahl = CStr(i) & "rs.tif"
ActiveSheet.Range("F" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
Next i
End Sub
LG,
Johannes
Anzeige
AW: Zahlen mit Text in Schleife
14.08.2019 13:09:30
Johannes
Hi Michael,
also nach meinem Verständnis sollen die Zahlen dann IMMER in F3 starten?!
Start- und Endwert werden jetzt per InputBox abgefragt:
Sub Zahlenreihe()
Dim intStart As Long
Dim intEnde As Long
Dim i As Long
Dim Row As Integer: Row = 3
Dim strZahl As String
' Abfrage von Start- und Endwert per Inputbox
intStart = InputBox("Geben Sie einen Startwert an:")
intEnde = InputBox("Geben Sie einen Endwert an:")
For i = intStart To intEnde
' Erstes Zahlenformat
strZahl = CStr(i) & ".tif"
ActiveSheet.Range("F" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
' Zweites Zahlenformat
strZahl = CStr(i) & "rs.tif"
ActiveSheet.Range("F" & Row).Value = strZahl
' Nächste Zeile
Row = Row + 1
Next i
End Sub
LG,
Johannes
Anzeige
AW: Zahlen mit Text in Schleife
14.08.2019 18:18:54
Hajo_Zi
ich sehe meinen Beitrag nicht. Darum nochmal
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Du willst doch was machen. Soll jemand vorbei kommen?
Das ist nur meine Meinung zu dem Thema.

AW: Zahlen mit Text in Schleife
16.08.2019 10:12:57
Johannes
Hallo Hajo,
du hast Recht. Das war im Eifer des Gefechts...
Gruß,
Johannes
AW: Zahlen mit Text in Schleife
14.08.2019 21:06:16
Michael
Hallo Johannes,
danke funktioniert super.
Die Zahlen sollen in einer angeklickten F-Zelle starten. Active Cell ?
LG Michael
AW: Zahlen mit Text in Schleife
15.08.2019 11:08:37
Johannes
Hi Wolfgang,
genau ersetze ActiveSheet.Range("F" & Row).Value durch Activecell.Value und anstatt Row = Row + 1 nimmst du Activecell.Offset(1,0).Activate
Gruß,
Johannes
Anzeige
AW: Zahlen mit Text in Schleife
16.08.2019 13:16:36
Michael
Hallo Johannes,
danke herzlich, funktioniert super.
LG Michael
AW: Zahlen mit Text in Schleife
17.08.2019 17:15:30
Michael
Hallo Johannes,
hab was übersehen. Bei Eingabe der Startzahl 001 und Endzahl 100 wird richtig geschrieben.
graslitz1.tif
graslitz2.tif
...
graslitz99.tif
graslitz100.tif
Sollte aber mit führenden Nullen sein sein.
Die Formatierung von CStr(i) in strZahl = CStr(i) & "rs.tif" krieg ich nicht hin.
Danke und LG Michael
AW: Zahlen mit Text in Schleife
17.08.2019 17:48:44
Daniel
Hi
wenn du führende nullen brauchst, musst du diese mit der Funktion FORMAT erzeugen:
Format(1;"000") ergibt "001"
wenn du also mit Z1 = 1 und Z2 = 100 arbeitest, müsstest du den Zahlenwert so erzeugen:
For i = Z1 to Z2
... = ... & Format(i, String(Len(Z2), "0")) & ...
Next

Gruß Daniel
Anzeige

304 Forumthreads zu ähnlichen Themen

Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Anzeige
SUMMEWENN; Zahl finden
Cordula

Hallo Excel-Forum,
stehe gerade völlig auf dem Schlauch. Folgendes:
Spalte A
Artikel
210
e-6
s-9
310 1
Spalte B
Preis
10€
20€
30€
40€
Nun möchte ich nur den Preis summieren, deren Artikelnummer die erste Stelle eine Zahl i...
12.09.2008 12:02:00
Thread-ID: 1009320
6 Beiträge
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 Beiträge
Anzeige
Zellen zählen mit Inhalt
nathan

Guten Morgen,
ich hab da mel eine Frage. Und zwar habe ich eine Liste in Excel erstellt mit Teilnehmern, jetzt benötige ich eine Formel die mir alle beschriebenen Felder zählt. Denn ich hab auch leere Zellen dazwischen. Und von Hand zählen ist etwas mühsam. Ich habe schon die Datenbankforme...
22.10.2008 11:13:00
Thread-ID: 1018269
3 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Zahlenreihe aus Zellen
Philipp

Hallo liebe Herber-Gemeinde,
heute möchte ich aus einer Zeilenreihe, die z.B. so aussieht:
A1 B1 C1 D1 E1 F1
12 16 22 45
Nun möchte ich, dass mir Excel aus der Zahlenreihe alle Zellen raussucht, wo Zahlen stehen und diese durch die Anzahl der der Zellen teilt, die Werte b...
16.12.2008 08:30:05
Thread-ID: 1033180
9 Beiträge
Zellen mit Inhalt zählen
hindenberger@gmx.de

Hallo,
ich habe eine Excel Matrix und möchte zählen lassen, wieviele Zellen einen Inhalt haben.
Kann man das mit einer (kombinierten) Excel Funktion machen lassen?
danke
Gruß,
Patric
08.01.2009 09:21:07
Thread-ID: 1037768
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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