Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Nach Zelleninhalt suchen und zurückgeben
Hans

Hallo,
Benötige für ein Makro folgende Funktionen
Suche ab der aktiven Zelle nach oben, die Spalten von B bis E nach folgendem Zelleninhalt durch.
Gesucht werden sollen nur die Zelleninhalte "Mat 01"; "Mat 02" usw. bis "Mat 15".
Wird z.B. als erstes der Wert "Mat 06" gefunden,...
23.10.2008 16:55:00
Thread-ID: 1018748
3 Beiträge
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Anzeige
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Anzeige
Werte In Tab 2 suchen und nach Tab 1 kopieren
Peter_weber

Liebe Experten,
versuche gerade VBA zu erlernen, um bestimmte wiederkehrende Abfragen schneller durchzuführen.
Wie könnte ein VBA Makro für folgendes Problem aussehen. Als Anfänger bin hier hoffnungslos überfordert.
Also
- ich habe eine Abfragemaske im Worksheet "Werte-Eingeben...
15.04.2009 09:50:31
Thread-ID: 1068812
5 Beiträge
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Anzeige
Werte suchen und anderen Spaltenwert zurück geben
Andre

Hallo alle zusammen,
habe ein Makro, dass in Datei_1 Spalte A Zeile für Zeile eine Übereinstimmung in einer
Datei_2 https://www.herber.de/bbs/user/62397.xls
in Spalte B sucht und wenn eine Übereinstimmung gefunden wurde, dann wird der Zellwert aus Datei 2 https://www.herber.de/bbs/u...
12.06.2009 20:51:05
Thread-ID: 1081180
6 Beiträge
Inhalt In Zellen suchen und kopieren
Rainer

Hallo, ich habe folgendes Problem.
ich habe zwei Arbeitsblätter, in denen alle unsere Kundendaten drin sind.
Ich müsste nun für einen EMail-Newsletter die Namen und EMail-Adressen raussuchen und dann in ein neues Arbeitsblatt oder Sheet einfügen.
Manuell könnte das sehr langwierig...
30.07.2009 19:22:06
Thread-ID: 1092602
3 Beiträge
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige