Hilfe -
19.04.2018 18:16:15
Sabrina
ich habe folgendes Problem:
mein Code gibt eine OrgID aus, soweit so gut, ich m?chte aber neben diesem einem Kriterium auch noch ein anderes pr?fen und zwar genau das selbe verfahren immer um eine Zahl verkleinert..
Also wenn laut code GRP9 e2 ist dann dann soll das selbe gepr?ft werden mit GRP8 und wenn die OrgID dann gleich ist, soll sie ind sStdOrgID geschrieben werden...
Br?uchte hier echt dringend Hilfe:
Private Sub setOrgID()
Dim position As Integer
Dim exitLoop As Integer
exitLoop = 0
position = 0
For Each e In LabelListe
position = position + 1
If e.Caption = "" Then
For Each e2 In Worksheets("Org_Struktur").Range(" _
Tabelle_OrganisationsStruktur_connector[GRP" & CStr(position - 1) & "]")
If e2.Value2 = LabelListe(position - 1).Caption Then
OrgID.Caption = Worksheets("Org_Struktur").Cells(e2.Row, Worksheets(" _
Org_Struktur").Range("Tabelle_OrganisationsStruktur_connector[ORG-ID]").Column)
sStdOrgID = OrgID.Caption
exitLoop = 1
Exit For
End If
Next e2
End If
If exitLoop = 1 Then
Exit For
End If
Next e
End Sub
Danke!!!