Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wert kleiner als verschieben

Wert kleiner als verschieben
02.06.2021 15:12:24
Annie
Hallo zusammen,
ich würde gerne ein Makro schreiben, dass mir ermöglicht Werte kleiner als Null innerhalb einer Spalte zu finden und in die nächste Spalte zu verschieben. Ich habe keine Ahnung wie ich es Excel erklären soll.
Für Hilfe wäre ich echt dankbar!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert kleiner als verschieben
02.06.2021 15:25:27
Rudi
Hallo,
z.B.

Sub aaa()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Tabelle3")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC 
Gruß
Rudi
AW: Wert kleiner als verschieben
02.06.2021 16:01:46
Annie
Danke Rudi, aber es tut sich nichts und leider ist das zu kryptisch als dass ich etwas ändern könnte. Eine Fehlermeldung konnte ich beheben, nämlich Tabelle 3 in 1 umbenennen. Wenn ich jetzt das Makro ausführe, werde ich auf die VBA Oberfläche geführt.
Ich habe in Tabelle 1, in Spalte K Beträge stehen. Sowohl + als auch - Beträge und möchte alle Minus-Beträge in Spalte L verschieben. Es wäre schön, wenn du mir da weiterhelfen könntest
Anzeige
AW: Wert kleiner als verschieben
02.06.2021 16:16:29
GerdL
Moin Annie,
vor den Erfolg haben die Götter den Schweiß gesetzt, gell. :-)

Sub bbb()
Dim rngC As Range
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For Each rngC In .Range(.Cells(2, 11), .Cells(.Rows.Count, 11).End(xlUp))
If rngC 
End Sub
Gruß Gerd
AW: Wert kleiner als verschieben
02.06.2021 16:35:55
Daniel
Hi
beispielsweise so, die Zellen die bearbeitet werden muss du vorher auswählen:

With Selection
with .Offset(0, 1)
.FormulaR1C1 = "=IF(RC[-1] 0 then
.SpecialCells(xlcelltypeconstants, 1).Offset(0, -1).ClearContents
end if
end with
end with
gruß Daniel
Anzeige
AW: Wert kleiner als verschieben
02.06.2021 18:09:21
Annie
Vielen Dank, Ihr habt mir sehr geholfen!!

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige