Druckgruppenzuweisung - ich scheitere...

Hallo Forum,
ich bin ein Neuling auf dem Gebiet VBA und versuche seit gestern schon ein Script zu erstellen, was das macht was ich möchte, nur funktioniert das nicht ganz so :/.
Ich habe mal hier eine Datei https://www.herber.de/bbs/user/87276.xls
, die es hoffentlich einfacher macht mich zu verstehen.
Ich muss jede Zeile prüfen lassen auf varierende Zusammenhänge, dabei ist zu beachten dass immer zwei Spalten zusammen hängen (A & B, C & D und E & F).
Hierbei steht A,C und E für die Druckgruppe und B,D & f für die maximale Druckfarben Anzahl.
Nehmen wir mal die erste Zeile, da möchte ich mir in einer Zelle auswerfen lassen S0-1,S0-2,UV; Zeile 30 z. B. soll T1-1,T1-2,T-3,T1-4,T1-5,T1-6,T1-7,T1-8; Zeile 14 P2-1,P2-2,S0-1,S0-2,VS
Falls das nicht möglich ist, wäre auch S0-2C oder S02C, T1-8C/T18C, P2-2C,S0-2C,VS-FC/P22C,S02C,VSFC in Ordnung, würde dann mit Suchen und ersetzen arbeiten.
Ich hoffe ich habe es verständlich rüber gebracht und mir kann dabei jemand helfen.
Vielen herzlichen Dank im Voraus

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
hier der Code für eine benutzerdefinierte Funktion, die die Inhalte der 6 Zellen analysiert und zu einem Ergebnistext zusammensetzt.
ggf. muss man für die Farb-Informationen weitere Prüfungen einbauen.
Nach dem Einfügen der Function in ein allgemeinens Modul der Datei, kannst du die entsprechenden Formeln z.B.in Spalte H eingeben.
Gruß
Franz

Function fncDruckgruppen(Grp1 As String, Farb1 As String, Grp2 As String, _
Farb2 As String, Grp3 As String, Farb3 As String) As String
'Grp1 bis Grp3 und Farb1 bis Farb3 sind Druckgruppen und Farbparameter
'Beispiel für Formel in Zelle H1 im Tabellenblatt _
=fncDruckgruppen(A1;B1;C1;D1;E1;F1)
Dim strErgebnis As String, intCount As Integer
Const strSep As String = "," 'Trennzeichenim Ergebnistext
'1. Gruppe untersuchen
If Grp1  "" Then
If Farb1 = "FC" Then
If strErgebnis = "" Then
strErgebnis = Grp1
Else
strErgebnis = strErgebnis & strSep & Grp1
End If
ElseIf IsNumeric(Left(Farb1, 1)) And Right(Farb1, 1) = "C" Then
intCount = Val(Left(Farb1, InStr(1, Farb1, "C") - 1))
For intCount = 1 To intCount
If strErgebnis = "" Then
strErgebnis = Grp1 & "-" & Format(intCount, "0")
Else
strErgebnis = strErgebnis & strSep & Grp1 & "-" & Format(intCount, "0")
End If
Next
Else
If strErgebnis = "" Then
strErgebnis = Grp1
Else
strErgebnis = strErgebnis & strSep & Grp1
End If
End If
End If
'2. Gruppe untersuchen
If Grp2  "" Then
If Farb2 = "FC" Then
If strErgebnis = "" Then
strErgebnis = Grp2
Else
strErgebnis = strErgebnis & strSep & Grp2
End If
ElseIf IsNumeric(Left(Farb2, 1)) And Right(Farb2, 1) = "C" Then
intCount = Val(Left(Farb2, InStr(1, Farb2, "C") - 1))
For intCount = 1 To intCount
If strErgebnis = "" Then
strErgebnis = Grp2 & "-" & Format(intCount, "0")
Else
strErgebnis = strErgebnis & strSep & Grp2 & "-" & Format(intCount, "0")
End If
Next
Else
If strErgebnis = "" Then
strErgebnis = Grp2
Else
strErgebnis = strErgebnis & strSep & Grp2
End If
End If
End If
'3. Gruppe untersuchen
If Grp3  "" Then
If Farb3 = "FC" Then
If strErgebnis = "" Then
strErgebnis = Grp3
Else
strErgebnis = strErgebnis & strSep & Grp3
End If
ElseIf IsNumeric(Left(Farb3, 1)) And Right(Farb3, 1) = "C" Then
intCount = Val(Left(Farb3, InStr(1, Farb3, "C") - 1))
For intCount = 1 To intCount
If strErgebnis = "" Then
strErgebnis = Grp3 & "-" & Format(intCount, "0")
Else
strErgebnis = strErgebnis & strSep & Grp3 & "-" & Format(intCount, "0")
End If
Next
Else
If strErgebnis = "" Then
strErgebnis = Grp3
Else
strErgebnis = strErgebnis & strSep & Grp3
End If
End If
End If
fncDruckgruppen = strErgebnis
End Function

Beliebteste Forumthreads (12 Monate)

Druckgruppenzuweisung - ich scheitere...

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread