derzeit habe ich in einem Code über sSearch und .Find eine Lösung, bei der
eine Matrix in einer Tabelle durchsucht wird und dann die dazugehörigen
Ergebnisse ermittelt werden:
Status | |||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||
Allerdings muss ich jedesmal bei Neuinstallationen neben dem code auch die
Tabelle mitübertragen / liefern.
Da die Suchfunktionen im code öfters vorkommen suche ich eine Möglichkeit
wie ich dies im Code lösen könnte (mit Variablen?).
Die Ermittlung habe ich bereits:
Sub Zahl_aus_Text()
Dim r As Range, intSpalte As Integer, i As Long, myZeile As Long
intSpalte = 1 + 1
' aus Zellen den Inhalt ermitteln und zugehörigen Namen eintragen
Cells(1, intSpalte + 4) = "Name"
Cells(1, intSpalte + 5) = "Abteilung"
Cells(1, intSpalte + 6) = "Segment"
For i = 2 To myZeile
If UCase(Cells(i, 3)) = "231" Then
Cells(i, intSpalte + 4) = "Müller"
Cells(i, intSpalte + 5) = "Alt"
Cells(i, intSpalte + 6) = "tief"
ElseIf UCase(Cells(i, 3)) = "232" Then
Cells(i, intSpalte + 4) = "Huber"
Cells(i, intSpalte + 5) = "Neu"
Cells(i, intSpalte + 6) = "hoch"
ElseIf UCase(Cells(i, 3)) = "234" Then
Cells(i, intSpalte + 4) = "Bauer"
Cells(i, intSpalte + 5) = "Alt"
Cells(i, intSpalte + 6) = "mittel"
End If
Next
End Sub
Jetzt müsste im code "die Matrix irgendwo fixiert" werden, auf die immer
zugegriffen wird - dann müsste ich bei Änderungen nur die Matrix ändern
und nicht immer den umfangreichen code.......
(Ob das jetzt verständlich ist?)
Trotzdem besten Dank!!
mfg
Erich
http://www.toolex.de