VBA - String aufteilen - Zahlen erkenn

Hallo zusammen,
ich möchte gerne mit VBA etwas prüfen.
In meinem Fall habe ich eine Tabelle, in welcher eine bestimmte Spalte auf Werte geprüft werden soll.
Sagen wir Spalte H, Zeile 10 - 13. In diesem Bereich möchte ich gerne jede Zelle scannen und herausfinden, ob diese ein Erkennungsmerkmal enthält.
Hier ein Beispiel, wie so eine Spalte aussieht:
G | H
09:00 Uhr | A 3
10:00 Uhr | A/B 4,6
13:00 Uhr | B 9, 12, 15
17:00 Uhr | A/B 23, 25, 26
Ich möchte, dass das Script erkennt, ob A, B oder A/B in der Zelle der Spalte H steht und dann die Uhrzeit der nebenstehenden Zelle den Zahlen zuordnet.
Das Ergebnis soll hier also sein
3 => A 09:00 Uhr
4 = A/B 10:00 Uhr
6 = A/B 10:00 Uhr
9 = B 13:00 Uhr
12 = B 13:00 Uhr
15 = B 13:00 Uhr
23 = A/B 17:00 Uhr
25 = A/B 17:00 Uhr
26 = A/B 17:00 Uhr

Ich hoffe ihr versteht, was ich meine.
Habe es mit einer Schleife versucht, die dann jeweils die Zelle in Spalte H mit Split auftrennt, aber komme irgendwie einfach nicht zu einer Lösung..
LG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…ZoBru,
außerdem könnte das 2.Argument von INDEX ungültig sein. Wenn man alles richtig anpasst, erhält man die Uhrzeiten zu den bereits in A vorgetragenen Nrn, allerdings ohne die Buchstaben. Ich bezweifle, dass du das so haben wolltest, allerdings scheint mir deine Zielvorgabe missdeutbar zu sein, weshalb ich genau das von dir Gezeigte mit 2 Fmln erzeuge, ohne dass zuvor eine NrnSpalte angelegt wdn muss. Allerdings bildet die 1.Fml erstmal ein zeilenweises Ergebnis in MatrixKonstantenForm, denn dein Ansinnen ist auf Grund der Unregelmäßigkeit der Daten nicht oW mit einer Fml ohne irgendwelche Hilfszellen bzw -konstrukte zu lösen. Das ist elegant wohl nur mit einer VBA-SubProzedur lösbar. Aber es gibt ja auch noch VBA-Fktsprozeduren, die man als sog UDFs (MakroFktt) gestalten kann, die dann idR sowohl in SubProzeduren (Makros) als auch in (Zell-)Fmln einsetzbar sind. Damit kannst du ebenfalls deine VBA-Kenntnisse erweitern, denn bei den folgd Fmln habe ich gleich mehrere aus dem Archiv eingesetzt (UDF-Namen in den Fmln sind idR maussensitive Links!). Allerdings könnten die für einen Anfänger etwas zu komplex sein, aber dann müsstest du dich halt an Onur wenden… ;-]
Ich habe die BspDaten übrigens auf 8 Zeilen erweitert, um eine andere EndFml-Variante zu testen, die dann bei dieser Datenmenge erwartungsgemäß versagt hat.
1. Singulare MatrixFmln (zur Erzeugung der MatrixKonstanten):
I1[:I8]: {="{"""&VJoin(VSplit(MaskOn(H1;"num"))&" ⇒ "&MaskOn(H1;"bst";"/")&" "&G1;""";""";;;3)&"""}"}
2. Plurale MatrixFml (zur Expansion der MxKonstanten-Werte):
P1:P21: {=TensEx(I1:I8)}
Solche Aufgaben wären relativ unkompliziert mit DatenStapelBildung zu lösen, was in Xl aber nicht vorgesehen und damit nicht oW machbar ist, obwohl Xl durchaus die Daten liefern kann. Damit könnte man dann zeilengerechte Lösungen erstellen. Hier würde sich so nämlich eher eine Matrix ergeben, aber du möchtest die Ergebnisse ja untereinander zu stehen haben.
Anmerkung: MaskOn erklärt sich iW selbst, die 3 anderen UDFs haben ausführlichere Erläuterungen (aber m.v.Abkk!) dabei.
Gruß, Luc :-?
Die universelle Befähigung zur Unfähigkeit macht jede menschliche Leistung zu einem unglaublichen Wunder. Stapps ironisches Paradoxon
Nichtsdestotrotz Durchblick verbessern mit

Sub test() Dim arr Dim Erg Dim z As Long, i As Long Dim txt As String, txt1 As String, txt2 As String Dim T arr = Range("G10:H13").Value For z = 1 To UBound(arr, 1) txt = arr(z, 2) For Each T In Array("/", ",", ";") txt = Replace(txt, T, " ") Next txt = WorksheetFunction.Trim(txt) T = Split(txt, " ") txt1 = T(0) For i = 1 To UBound(T) If Not IsNumeric(T(i)) Then txt1 = txt1 & "/" & T(i) Else Exit For End If Next For i = i To UBound(T) Erg = Erg & vbLf & T(i) & " = " & txt1 & " " & arr(z, 1) Next Next Erg = Mid(Erg, 1) MsgBox Erg End Sub

Sub Unit() Dim C As Range, X As String, Y As Variant, Zeile As Long Zeile = 1 For Each C In Range("H10:H13") X = Trim(C.Value) If Left(X, 4) = "A/B " Or Left(X, 2) = "A " Or Left(X, 2) = "B " Then For Each Y In Split((Replace(X, Split(X)(0), "")), ",") Zeile = Zeile + 1 Range("J" & Zeile) = "'" & Trim(Y) & " = " & Left(X, InStr(X, " ")) & C.Offset(0, -1) Next Y End If Next C End Sub

Option Explicit Sub ml() Dim x&, y&, ColZiel&, RowZiel& ColZiel = 15: RowZiel = 1 For y = 1 To 4 For x = 9 To 11 If Cells(y, x) "" Then Cells(RowZiel, ColZiel) = Cells(y, x) & " => " & Cells(y, 8) & " " & Cells(y, 7) RowZiel = RowZiel + 1 End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

	O
1	3 => A 09:00:00 Uhr
2	4 => A/B 10:00:00 Uhr
3	6 => A/B 10:00:00 Uhr
4	9 => B 13:00:00 Uhr
5	12 => B 13:00:00 Uhr
6	15 => B 13:00:00 Uhr
7	23 => A/B 17:00:00 Uhr
8	25 => A/B 17:00:00 Uhr
9	26 => A/B 17:00:00 Uhr

VBA - String aufteilen - Zahlen erkenn

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	G	H	I	J	K
1	09:00:00 Uhr	A	3
2	10:00:00 Uhr	A/B	4	6
3	13:00:00 Uhr	B	9	12	15
4	17:00:00 Uhr	A/B	23	25	26

VBA - String aufteilen - Zahlen erkenn

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread