ich habe ein Problemchen. In meiner Tabelle haben die Werte in Spalte F immer die falschen Vorzeichen. Diese sollten per Makro getauscht werden... Kann mir da jemand helfen?
Gruß
Maris
Option Explicit
Sub VorzF()
Dim lngZ As Long, varA, zz As Long
lngZ = Cells(Rows.Count, 6).End(xlUp).Row
varA = Application.Transpose(Cells(1, 6).Resize(lngZ))
For zz = 1 To lngZ
If IsNumeric(varA(zz)) Then varA(zz) = -varA(zz)
Next zz
Cells(1, 6).Resize(lngZ) = Application.Transpose(varA)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
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