VBA

Forumthread: VBA

VBA

26.04.2018 17:29:31

Walter

Guten Tag,
ich hätte gerne eine Hilfe für folgendes Problem:
Gerne möchte ich in einem Arbeitsblatt folgendes automatisch
über VBA bewirken lassen:
Tausende von Zeilen sind vorhanden.
In Zelle A2 beginnend stehen Zahl durch "Komma" getrennt.
Nun hätte ich gerne, wenn mehr als eine Zahl vorhanden ist,
dass für jede weitere vorhandene Zahl eine weitere Zeile hierfür
kopiert wird.
Gerne erwarte ich Eure Hilfe.
Gruß
Walter

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA

26.04.2018 18:01:07

Walter
Brief - Frage

26.04.2018 18:13:29

EtoPHG
AW: Brief - Frage

26.04.2018 18:18:56

Walter
AW: Brief - Frage

26.04.2018 18:27:35

Walter
Schleifenzähler per Formel

26.04.2018 18:36:32

Matthias
AW: Schleifenzähler per Formel

26.04.2018 18:47:58

Walter
AW: Schleifenzähler per Formel

26.04.2018 20:37:19

Gerd
AW: Schleifenzähler per Formel

26.04.2018 21:41:13

Walter

AW: VBA

26.04.2018 18:01:07

Walter

Habe eine Beispiel hochgeladen:
https://www.herber.de/bbs/user/121308.xlsx

Brief - Frage

26.04.2018 18:13:29

EtoPHG

Hallo Walter,
Was würdest du von einem Brief halten, der den Betreff "Brief" hat.
Ok du willst was in VBA, aber dann sag doch auch bitte etwas ausführlicher was.
Zu deiner Beispieldatei:
Können deine "Zahlen" durch Kommas, Leerstellen, Punkte und was noch? getrennt sein?
Gruess Hansueli

AW: Brief - Frage

26.04.2018 18:18:56

Walter

Oh sorry.
Hallo Hansueli,
die Zahlen -sind eigentlich Rufnummern- sind
nur durch Kommas getrennt. Es kann aber auch vorkommen,
dass vor und nach dem Komma eine Leerstelle (wie in meiner Beispieldatei)stehen könnte.
Gruß
Walter

AW: Brief - Frage

26.04.2018 18:27:35

Walter

Wenn möglich, gerne in VBA....

Schleifenzähler per Formel

26.04.2018 18:36:32

Matthias

Hallo
Schau mal
Tabelle1

	A	B	C	D	E	F
1	So ist der Jetztzustand:					wieviel Einträge
2	4, 3,9	bla	bla	bla	usw.	3
3	55	bla	bla	bla	usw.	1
4	1,66	bla	bla	bla	usw.	2

Formeln der Tabelle

Zelle	Formel
F2	=GLÄTTEN(LÄNGE(A2))-LÄNGE(GLÄTTEN(WECHSELN(A2;",";"")))+1
F3	=GLÄTTEN(LÄNGE(A3))-LÄNGE(GLÄTTEN(WECHSELN(A3;",";"")))+1
F4	=GLÄTTEN(LÄNGE(A4))-LÄNGE(GLÄTTEN(WECHSELN(A4;",";"")))+1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Hier hast Du nun einen Schleifenzähler für jeden Eintrag in Spalte("A")
Diesen kannst Du nun gezielt in VBA anwenden.
Gruß Matthias

AW: Schleifenzähler per Formel

26.04.2018 18:47:58

Walter

Hallo Matthias,
danke für Deine Mühe.
Ich weiß leider nicht, wie ich den
in vba einbauen kann und vba mir automatisch
die benötigten Zeilen zufügen könnte.
:-((
Gruß
Walter

AW: Schleifenzähler per Formel

26.04.2018 20:37:19

Gerd

Moin Walter! Sub Test() Dim X As Long, Zeile As Long Zeile = 1 While Cells(Zeile, 1) "" X = UBound(Split(Trim$(Cells(Zeile, 1)), ",")) If CBool(X) Then Cells(Zeile + 1, 1).Resize(X).EntireRow.Insert xlShiftDown Zeile = Zeile + X + 1 Wend End Sub
Gruß Gerd

AW: Schleifenzähler per Formel

26.04.2018 21:41:13

Walter

Danke Gerd.
Klappt nicht so.
Vielen Dank für die Mühe.
Gruß
Walter

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread