String auf Zellen verteilen

Hallo,
Ich habe folgendes Problem: Ich möchte über einen Makrobutton Werte aus einem String in verschiedene Zellen verteilen lassen. Dabei soll sich der Button auf dem Tabellenblatt "Projektübersicht", die gesamte Tabelle aber auf dem Tabellenblatt "Zwischenrechnung" befinden.
Gegeben ist folgende Tabelle:
Zwischenrechnung

	A	B	C	D	E	F	G	H	I	J	K
1			Produkte
2			Produktname	asdsa	fsdf	gw	ewra	gwer	gswdf	ewr	gdsfs
3	Projekt-Nr.	String	AR	ARec	AC	PA	TC	RP	PD	DM	CR
4	389240729047	50AC+20AR+30TC
5	459809348509	10ARec+90PD
6	324234952ß21	40ARec+60AR
7	C-T223	20CR+30TC+50PA
8	A-B231
9	G-D231
10	T-U231
11	V-K312
12	T-H223
13	T-B231
14	R-E231
15	T-R00E-136
16	U-H00E-139
17	V-H00E-150
18	W-H00J
19	T-H030M

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
In der Spalte String steht immer erst ein Wert, dann eine Produktabkürzung und dann ein "+", um zum nächsten Produkt zu trennen.
Nachdem der Button geklickt wurde, soll die Tabelle dann so aussehen:
Zwischenrechnung

	A	B	C	D	E	F	G	H	I	J	K
1			Produkte
2			Produktname	asdsa	fsdf	gw	ewra	gwer	gswdf	ewr	gdsfs
3	Projekt-Nr.	String	AR	ARec	AC	PA	TC	RP	PD	DM	CR
4	389240729047	50AC+20AR+30TC	20	0	50	0	30	0	0	0	0
5	459809348509	10ARec+90PD	0	10	0	0	0	0	90	0	0
6	324234952ß21	40ARec+60AR	60	40	0	0	0	0	0	0	0
7	C-T223	20CR+30TC+50PA	0	0	0	50	30	0	0	0	20
8	A-B231		0	0	0	0	0	0	0	0	0
9	G-D231		0	0	0	0	0	0	0	0	0
10	T-U231		0	0	0	0	0	0	0	0	0
11	V-K312		0	0	0	0	0	0	0	0	0
12	T-H223		0	0	0	0	0	0	0	0	0
13	T-B231		0	0	0	0	0	0	0	0	0
14	R-E231		0	0	0	0	0	0	0	0	0
15	T-R00E-136		0	0	0	0	0	0	0	0	0
16	U-H00E-139		0	0	0	0	0	0	0	0	0
17	V-H00E-150		0	0	0	0	0	0	0	0	0
18	W-H00J		0	0	0	0	0	0	0	0	0
19	T-H030M		0	0	0	0	0	0	0	0	0

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Durch den Button soll also keine neue Tabelle erzeugt, sondern lediglich die Werte in eine bereits bestehende Tabelle eingetragen werden. Dabei ist es wichtig, dass die Werte aller Produkte geupdatet werden. Für Produkte, die nicht im String enthalten sind, soll dann eine Null eingetragen werden. (Die Anzahl der Projektzeilen variiert. Wenn kein String hinter einer Projektnummer steht, soll für alle Produkte eine Null eingetragen werden.)
Wäre echt super, wenn mir jemand helfen könnte, da ich bisher noch keine Erfahrungen mit VBA gesammelt habe.
Gruß Felix
(Die Beispieldatei habe ich angehängt: https://www.herber.de/bbs/user/36748.xls)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
folgendes Makro dürfte den Job erledigen.
Vorraussetzung es sind immer 2-stellige Werte.
Sub Aufteilen() On Error GoTo Fehler Dim SP%, LR&, TB1, i&, j%, Pos%, Testtext$ Set TB1 = Sheets("Zwischenrechnung") 'aus bestimmtem Blatt SP = 2 'Spalte B LR = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte Application.DisplayAlerts = False For i = 4 To LR Testtext = TB1.Cells(i, SP) & "+" 'nötig wegen AR und ARec For j = 3 To 11 Pos = InStr(1, Testtext, TB1.Cells(3, j) & "+") If Pos <> 0 Then TB1.Cells(i, j) = Mid(Testtext, Pos - 2, 2) Else TB1.Cells(i, j) = "0" End If Next Next Fehler: If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear Application.DisplayAlerts = True End Sub
Gruß UweD
(Rückmeldung wäre schön)

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread