Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in VBA
Christian
09.12.2024 18:52:26
Nachtrag
also in den Zeilen die seit dem letzten händig formatieren neu dazugekommen sind, stehen dann Zahlen statt Daten
Als Antwort auf diesen Beitrag
Christian
09.12.2024 18:50:25
AW: komplettes Makro
' Formeln für Spalten N, O, Q, R
wsNV.Range("N" & startZeile & ":N" & letzteZeileM).FormulaLocal = _
"=WENNFEHLER(XVERWEIS(""'"" & M" & startZeile & ";$D$254:$D$" & letzteZeileD & ";$E$254:$E$" & letzteZeileD & ";;0;1);"""")"
wsNV.Range("O" & startZeile & ":O" & letzteZeileM).FormulaLocal = _
"=WENN(XVERWEIS(M" & startZeile & ";$D$254:$D$" & letzteZeileD & ";$G$254:$G$" & letzteZeileD & ";"""";0;1)=0;"""";XVERWEIS(M" & startZeile & ";$D$254:$D$" & letzteZeileD & ";$G$254:$G$" & letzteZeileD & ";"""";0;1))"
wsNV.Range("Q" & startZeile & ":Q" & letzteZeileM).FormulaLocal = _
"=XVERWEIS(P" & startZeile & ";$I$254:$I$" & letzteZeileI & ";$J$254:$J$" & letzteZeileI & ";"""";0;1)"
wsNV.Range("R" & startZeile & ":R" & letzteZeileM).FormulaLocal = _
"=WENN(XVERWEIS(P" & startZeile & ";$I$254:$I$" & letzteZeileI & ";$K$254:$K$" & letzteZeileI & ";"""";0;1)=0;"""";XVERWEIS(P" & startZeile & ";$I$254:$I$" & letzteZeileI & ";$K$254:$K$" & letzteZeileI & ";"""";0;1))"
' Werte fixieren
wsNV.Range("N253:R" & letzteZeileM).Value2 = wsNV.Range("N253:R" & letzteZeileM).Value2
mit dem Tippfehler kein Problem. Das war so gemeint, dass es doch irgendwie möglich sein muss anzugeben, in welchem Zellformat die Einträge in Spalte O und R da stehen sollen, wenn das Makro fertig ist. Die Formeln wandeln nämlich Daten in Zahlen um und ich muss dann immer von Hand das Zellformat wieder in Datum ändern.
Folgenachrichten
- sorry manchmal sieht man den Wald vor lauter Bäumen nicht - von Christian am 09.12.2024 18:56:36
Antwort auf Beitrag erstellen