Zeile nach Wert durchsuchen VBA
13.08.2015 15:31:15
BADA
ich habe ein Problem, welches sich hoffentlich mit euerer Hilfe lösen lässt.
Ich muss Daten aufbereiten, die in Excel als eine Tabelle importiert werden. Für mich wichtige Werte sind die, die sich in der Spalte "P22x998" befinden. So weit so gut. Nun variiert die Anzahl der Spalten, also auch die Koordinaten meiner Spalte von Datei zu Datei.
Da ich aber bestimmte werte aus der Spalte benötige, würde ich gerne die ganze erste Zeile nach dem Ausdruck "P22x998" durchsuchen. Die Stelle, an der sich Die Spalte befindet (also z.B. D = 4 oder E = 5) als Variable speichern ( z.B. Variable = 5 , für die STelle E)
Mit der Variable lässt sich dann arbeiten, denn danach greift mein Makro, welches mit den Koordinaten der Spalte und Zeile die richtigenWerte selbststäändig rauszieht.
Ich müsste das Makro nur noch mit der Koordinate der Spalte in der sich "P22x998" befindet speisen.
Hoffe das war nicht all zu verwirrend.
damit es vielleicht etwas verständlicher wird hier das Makro, welches mit der Koordinate gespeist werden soll:
Sheets("Tabelle1").Select
Spalte = 34 'AH 'die 34 soll durch die Suche ausgegeben werden, hier sind meine Werte
Set rngGesamt = Cells(2, Spalte)
For Zeile = 12 To 1000 Step 9 'Ich benötige ab der 2. Zelle jeden 9. Wert (ist 'nicht so wichtig)
Set rngGesamt = Union(rngGesamt, Cells(Zeile, Spalte))
Next
rngGesamt.Copy
'Brereich einfügen
Sheets("Tabelle2").Select
Range("F14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Für Anregungen bin ich sehr dankbar!