Hi zusammen.
Ich verwede folgenden Quellcode um in einer Exceltabelle Daten zu suchen. Diese werden dann kopiert und in eine andere Tabelle eingetragen. Um die verschiedenen Werte zu suchen führe ich den Code mehrmals hintereinander aus, also für jeden Suchwert individuell.
Lässt sich das auch so gestalten, das ich ein 'Array'? für die Suchwerte und die Zielzellen eingebe? Also damit den Quellcode verkürzen kann?
MfG
Torsten
Danke schon mal im voraus.
PS: Leider bekomme ich den Code hier nicht so schön hingeschrieben, wie er bei mir im Editor steht. Sorry.
Ahh, geht doch. Bedingter Zeilenumbruch mit [Shift]...gewusst wie.
Ich verwede folgenden Quellcode um in einer Exceltabelle Daten zu suchen. Diese werden dann kopiert und in eine andere Tabelle eingetragen. Um die verschiedenen Werte zu suchen führe ich den Code mehrmals hintereinander aus, also für jeden Suchwert individuell.
Lässt sich das auch so gestalten, das ich ein 'Array'? für die Suchwerte und die Zielzellen eingebe? Also damit den Quellcode verkürzen kann?
Visual Basic-Quellcode
- 'Suchen 1. Wert (Suchwert1)
- CodeName$ = "Suchwert1"
- CodeDatenzeile$ = " "
- Windows("Suchtabelle").Activate
- Range("A1").Select
- Selection.Range("Suchbereich").Select
- For Each Z In Selection
- If Z.Value = CodeName$ Then CodeDatenzeile$ = Z.Address
- If CodeDatenzeile$ <> " " Then Exit For
- Next Z
- If CodeDatenzeile$ <> " " Then
- Range(CodeDatenzeile$).Select
- Selection.Range("C1:C1").Select
- Application.CutCopyMode = False
- Selection.Copy
- Windows("Zieltabelle").Activate
- Range("Zielzelle").Select
- Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
- Selection.NumberFormat = "0.000"
- End If
MfG
Torsten
Danke schon mal im voraus.
PS: Leider bekomme ich den Code hier nicht so schön hingeschrieben, wie er bei mir im Editor steht. Sorry.
Ahh, geht doch. Bedingter Zeilenumbruch mit [Shift]...gewusst wie.