Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 11:17:06
Hyperlink zu Bild in Zelle
17.05.2024 11:15:40
Spalte und Makros gleichzeitig verschieben
17.05.2024 11:03:10
Ganze Zahl in Ganz-Zahl Kombinationen aufteilen (ohne Rest)
17.05.2024 10:40:53
Tabellen (formatiert) über VBA auswählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenwerten>=65 suchen,Zeile rot markieren,unten einreihen

Spaltenwerten>=65 suchen,Zeile rot markieren,unten einreihen
20.12.2023 18:44:39
Valor
Moin Zusammen,
folgende VBA-Problemstellung. Es soll auf die Spalte G (s. Datei) mit Zahlen und Strings, nur nach Werte größer gleich 65 gesucht werden. Die Inhalte diese Zeile sollen nun rot markiert werden und die ganze Zeilen nach unter eingereiht verschoben werden. Anschließend soll die Nummerierung wieder gestellt werden.

Bitte um Lösungsansätze

https://www.herber.de/bbs/user/165414.xlsm

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenwerten>=65 suchen,Zeile rot markieren,unten einreihen
21.12.2023 08:36:54
MCO
Moin, Valor!

Die Datei kenn ich doch....?

Hier die von dir gewünschte Funktionalität:
Sub daten_verschieben()



    lz = Cells(Rows.Count, "C").End(xlUp).Row + 1

    For Each rw In Range("G:G").SpecialCells(xlCellTypeConstants, xlNumbers)

        If rw >= 65 Then

            rw.Interior.ColorIndex = 3

            Rows(rw.Row).Copy Cells(lz, "A")

            lz = lz + 1

            Cells(rw.Row, "C").ClearContents

        End If

    Next rw

    

    Range("C4:C" & lz).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    lz = Cells(Rows.Count, "C").End(xlUp).Row

    

    Range("B5") = 1

    Range("B6") = 2

    Range("B7") = 3

    

    Range("B5:B7").AutoFill Range("B5:B" & lz)

End Sub
Gruß, MCO
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige