Wie kann ich den Inhalt einer beliebigen Zelle eines beliebigen Arbeitsblattes auslesen und in einem Textfeld ausgeben?
(Das ganze soll eine kleine Suchfunktion werden.)
Grüße und Danke … H.-Dieter
Hi H.-Dieter,
Sub Test
Blatt = 1
Zeile = 1
Spalte = 1
Sheets(Blatt).Activate
Inhalt = Cells(Zeile,Spalte).Formula
MsgBox(Inhalt)
End Test
Wenn Du das Ganze in eine Function packst, kannst Du natürlich Blatt, Zeile und Spalte beim Aufruf übergeben und Inhalt als Ergebnis zurückgeben.
Ciao
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
me.text1.text = activecell.text