Hallo, möchte mit einem Excelmakro folgendes erreichen:
es soll die Spalte "d" geprüft werden ob positive Zahlen enthalten sind, wenn ja
dann sollten diese Zahlen um eine Spalte nach links verschoben werden.
Danke im Voraus!
L.G.
Fred
Excel Makro
-
- Gerade eben
- Anzeige
Hallo!
Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.
- ✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
- ✔️ Deutsche Server & DSGVO-konform
- ✔️ Persönlicher Support (kein 0815-Ticket-System)
Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden
Hinweis:
-
Hallo Fred
Vielleicht so
Gruß Tanto
Code
Alles anzeigenOption Explicit Sub verschieben() Dim Zeilen As Long ReDim Cspalte(Range("D" & Rows.Count).End(xlUp).Row, 1) ReDim Dspalte(Range("D" & Rows.Count).End(xlUp).Row, 1) Cspalte() = Range("C2:C" & Range("D" & Rows.Count).End(xlUp).Row) Dspalte() = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row) For Zeilen = 1 To UBound(Dspalte()) If Dspalte(Zeilen, 1) > 0 Then Cspalte(Zeilen, 1) = Dspalte(Zeilen, 1) Dspalte(Zeilen, 1) = "" End If Next Zeilen Range("C2:C" & Range("D" & Rows.Count).End(xlUp).Row) = Cspalte() Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row) = Dspalte() End Sub
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!