|
Excel : VBA Datums kopieren und neuen Excel Tabellen speichern
HenryV am 08.09.2016 um 16:34 Uhr (1)
Hallo Annadie ZeilenCode:If Format(Cells(i + 1, 1), "YYYYMMDD") = Format(Cells((i), 1), "YYYYMMDD") Then i = i + 1End Ifmusst du mit einer Schlaufe ersetzen, sonst werden nur 3 Zeilen kopiert.Code:Do While Format(Cells(i + 1, 1), "YYYYMMDD") = Format(Cells((i), 1), "YYYYMMDD") i = i + 1LoopDies Code:Do Until Range("A2") = " " führt zu einer Endlosschleife.Besser wäre Code:Do Until Trim(Range("A2").Value) = ""Gruss Andreas------------------21 ist nur die halbe Antwort.
| | In das Form Excel wechseln |
 |
Excel : Text rausschneiden
HenryV am 13.09.2022 um 18:23 Uhr (15)
Hallo TomAufteilen von Text auf verschiedene Spalten mit FunktionenAls Formeln:1.Zeile=LINKS(A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1))2.Zeile=TEIL(A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1)-(und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1))3.Zeile=TEIL(A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1)+1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1)+1)-(und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;1)+1)))4.Zeile=RECHTS(A1;LÄNGE(A1)-und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;und-color: #FFFF99'>SUCHEN(ZEICHEN(10);A1;S ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |