die gesuchte Zelle zu finden stellt kein Problem dar:
cells(Reihe,Zeile).select
Was aber soll "und den Wert der Zeile übernimmt" heissen?
Möchtest Du den Wert woanders hin kopieren, oder was ?
Gruss T.
die letzte msgbox mit der variablen gewert übergibt den gefundenen wert .. wohin auch immer
Sub xy_achse()
x = InputBox("x_wert eingeben") 'entspricht der Spalte als Buchstabe
y = InputBox("y_wert eingeben") 'entspricht der Zeile als Zahl
msg = MsgBox("Zelle " & x & y & " wurde ausgewählt")
gefwert = MsgBox("Der Wert in der gefunden Zelle heisst " & Range(x & y).Value)
End Sub
gruß
andreas e
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen