ich möchte Werte in einer beliebigen Spalte / Zeile glätten.
Hierzu positioniere ich den Cursor in die erste "Zielzelle" rechts neben dem zu prüfenden Wert.
Dann soll ein Makro helfen.
Ein Makro für die Aufgabe bei immer gleicher Position der Spalte und Zeile bestehet bereits.
Das wollte ich anpassen.
Habe dann folgende Definition versucht und bin grandios gescheitert, da ActiveCell.Collumn einen numerischen Wert liefert und ActiveCell.Adress einen Alphanumerischen Wert liefert.
Set datei = ActiveWorkbook.Worksheets(1)
'Definintion der Variablen "datei"
Zeile = ActiveCell.Row
'Definition eines Zählers für Zeilen und Positionierung auf die Zeile wo der Cursor steht
MsgBox (Zeile)
zreihe = ActiveCell.Column
'Definition der ZielReihe
MsgBox (zreihe)
preihe = zreihe - 1
'Definition der Zielreihe
MsgBox (preihe)
zzelle = ActiveCell.Address
'Definition der Zielzelle
MsgBox (zzelle)
pzelle = datei.Cells(Zeile, preihe)
'Definiton der Prüfzelle
MsgBox (pzelle)
Wie kann ich das besser machen?
Viele Grüße
Thomas