Da ich relativ am Ende meines Lateins bin und langsam "betriebsblind" werde, versuche ich es jetzt mal hier mit eurer Hilfe!
Ich schreibe gerade ein Macro mit dem ich aus einer Tabelle bestimmte "Überschriften" suchen kann und von denen ich die Spaltennummer auslesen will. Diese kann immer unterschiedlich sein, da die Spalten variieren. Der Fehler läuft immer auf ein anwendungs- oder objektorientiertes Problem hinaus und ich weiß nun nicht mehr weiter, da ich alle Möglichkeiten ausprobiert habe, diese Zelle zu aktivieren.
Nachfolgend steht der Code:
Sub SpaltennummernKopf()
Workbooks("Kopfdaten.xls").Activate
Worksheets("Tabelle1").Activate
Range("A1").Select 'hier hackts
'letzte Spalte finden
letzteSpalte = Range("A1").End(xlToRight).Column
'Spalte auswählen
Range(Cells(1, letzteSpalte), Cells(1, letzteSpalte)).Select
'Bereich durchsuchen und Wert ausgeben
Zeile = Sheets("Tabelle1"). _
UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Suchen = 1 To letzteSpalte
If Cells(1, Suchen) = "Regulierer" Then
MsgBox Suchen
End If
Next Suchen
End Sub
Vielen lieben Dank schonmal im Voraus für die Hilfe!