21.06.2021, 09:40
Hallo Zusammen,
ich brauche zwar aktuell keine Lösung bin aber in einer Excel Tabelle auf folgendes gestoßen, was ich bisher noch nie gesehen habe. Ich hoffe ihr könnt mir den Code bzw. eine Erklärung geben, damit ich den Code verstehe :)
Zuerst.
"Dim xyz(1000)"
-> was macht das mit der variablen? ist das eine Formatierung als Zahlenformat?
Danach kommt:
"Dim v1(100) as String
Dim vers_test as String"
-> was bedeutet hier die 100?
Es folgt:
"Sheets("Tabelle2").Select
i = 2
While ActiveSheet.Cells(i, 1) <> ""
vers(v) = ActiveSheet.Cells(i, 1)
vers_bez(v) = ActiveSheet.Cells(i, 2)
v = v + 1
i = i + 1
Wend
Sheets("Tabelle3").Select
i = 2
While ActiveSheet.Cells(i, 1) <> ""
vers_test = ActiveSheet.Cells(i, 2)
For x = 0 To v
If vers_test = vert(x) Then
ActiveSheet.Cells(i, 10) = vers_bez(x)
GoTo weiter3:
End If
Next x
weiter3:
i = i + 1
Wend"
Die Datei hat mehrere Reiter, und meiner Meinung nach vergibt die Formel für einen Bestimmten Bereich eine eindeutige Variable, sodass diese dann auf dem nächsten Reiter durch ein Vergleich, abgerufen und eingetragen werden kann.
Was sagen hier die Profis? Ich finde den einfach spannend, habe aber bei meinen Recherchen nichts hierzu gefunden.
Danke vorab für eure fachliche und sachliche Hilfe!
ich brauche zwar aktuell keine Lösung bin aber in einer Excel Tabelle auf folgendes gestoßen, was ich bisher noch nie gesehen habe. Ich hoffe ihr könnt mir den Code bzw. eine Erklärung geben, damit ich den Code verstehe :)
Zuerst.
"Dim xyz(1000)"
-> was macht das mit der variablen? ist das eine Formatierung als Zahlenformat?
Danach kommt:
"Dim v1(100) as String
Dim vers_test as String"
-> was bedeutet hier die 100?
Es folgt:
"Sheets("Tabelle2").Select
i = 2
While ActiveSheet.Cells(i, 1) <> ""
vers(v) = ActiveSheet.Cells(i, 1)
vers_bez(v) = ActiveSheet.Cells(i, 2)
v = v + 1
i = i + 1
Wend
Sheets("Tabelle3").Select
i = 2
While ActiveSheet.Cells(i, 1) <> ""
vers_test = ActiveSheet.Cells(i, 2)
For x = 0 To v
If vers_test = vert(x) Then
ActiveSheet.Cells(i, 10) = vers_bez(x)
GoTo weiter3:
End If
Next x
weiter3:
i = i + 1
Wend"
Die Datei hat mehrere Reiter, und meiner Meinung nach vergibt die Formel für einen Bestimmten Bereich eine eindeutige Variable, sodass diese dann auf dem nächsten Reiter durch ein Vergleich, abgerufen und eingetragen werden kann.
Was sagen hier die Profis? Ich finde den einfach spannend, habe aber bei meinen Recherchen nichts hierzu gefunden.
Danke vorab für eure fachliche und sachliche Hilfe!