AW: LinkedCell einer Textbox per Macro zuweisen
25.08.2007 11:22:45
Daniel
Hi
mal grundsätzlich, Office XP kann doch nur 256 Spalten, das mit den 500 würde erst ab Excel 2007 gehen.
dein Makro müsste dann so aussehten:
For a = 50 To 256
If Sheets("Daten").Cells(1, a) = Sheets("Daten").Cells(1, 49) Then
TextBox3.LinkedCell = "Daten!" & cells(2, a).address
Next a
Besser wäre allerdings folgendes Makro, daß keine Schleife benötigt, sondern die Find-Funktion verwendet
a = sheets("Daten").range("AX1:IV1").find(what:=sheets("Daten").cells(1,49).value, lookat:= _
xlwhole).column
TextBox3.LinkedCell = "Daten!" & cells(2, a).address
oder die Vergleichsfunktion:
a = worksheetfunction.match(sheets("Daten").cells(1,49), sheets("Daten").range("ax1:iv1"), 0)+ _
49
TextBox3.LinkedCell = "Daten!" & cells(2, a).address
beide Varianten haben aber den Nachteil, daß das Makro mit der Fehlermeldung abbricht, wenn der Wert aus Cells(1,49) nicht gefunden wurde.
Außderdem würde, wennn der Suchbegriff mehrfach vorkommt, deine Schleife den letzten Wert zurückgeben, bei meinen beiden Varianten dagegen immer der erste gefundene.
Gruß, Daniel