Excel Makro
25.09.2015 15:57:46
Christoph
ich komme einfach nicht weiter bei meinem Problem.
Daher wende ich mich vertrauensvoll hier ans Forum.
Ich suche innerhalb einer Zeile (die immer 13 Spalten breit ist) jeweils den Max-Wert (mit der Funktion Max()).
Basierend auf dem gefunden Max-Wert ermittle ich die Zellen.Addresse, welche ich in einer Hilfsspalte anzeige.
(=Zeichen(Vergleich(Max(F4:R4);F4:R4;0)+69) & Zeile()
Soweit sogut .. und nun komme ich zum Problem.
Aus der ermittelten Zelle (welche den MaxWert besitzt), muss ich den Kommentar auslesen und in die 3 Zelle der Zeile (in meinem Bsp also C4) schreiben.
Das gilt mir letztlich nicht
Hier mal mein 'Versuch'
i = 0
x = 4
For i = 1 To 31
'das ist die Hilfsspalte, mit der Zieladresse mittels Formel ermittelt
Range("T" & x).Value
xcde = Range("T" & x).Value
'springen zur Zieladdresse
ActiveCell.Offset(0,-17).Select
'ZielAdresse auslesen
MyAdr = Selection.Address
hier ....? irgendetwas wie ? das u.a. funktioniert so nicht
Range(MyAdr) = ActiveWorkbook.ActiveSheet.Range(xcde).Comment.Text
x = x + 1
Next i
Letztlich scheitere ich am Schreiben des Kommentar in die Zeiladresse.
Hat jemand eine Idee oder einen Tip, wie man das lösen kann ?
Danke schon einmal im voraus
Gruss
Chris