Moin! Dann so. Das sucht in der Spalte 3 dann deinen Wert und gibt die Spalte in die Variable mit selbem Namen. Mit der kannst du dann weiterarbeiten. Habe es mal in den Code von vorhin eingearbeitet. Dabei ist mir aufgefallen, dass ich das Ergebnis des Count if verwechselt habe. HIer jetzt getauscht und mit der Spalte noch dazu. Vg
Dim zweitesuche
Dim spalte
zweitesuche = Application.CountIf(ActiveSheet.Range("E3:EEE3"), finanzpartnername)
If zweitesuche > 0 Then
finanzpartnerinauswertungsblatt = finanzpartnername
spalte = Application.WorksheetFunction.Match(finanzpartnername, ActiveSheet.Range("AE3:AEEE3"), 0)"
Else
MsgBox "Wert nicht gefunden!"
End If
|