Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probl.: Leere Zellen suchen und löschen (Code)

Forumthread: Probl.: Leere Zellen suchen und löschen (Code)

Probl.: Leere Zellen suchen und löschen (Code)
03.09.2003 09:07:49
Tobias Reingruber
Hallo.
Ich habe das Problem, dass in einer Arbeitsmappe Einträge eingefügt und ausgeschnitten werden. Um dennoch ein zusammenhängendes Bild zu wahren suche ich eine Funktion, die mit auf Knopfdruck erlaubt, die leeren (ausgeschnittenen) Zellen herauszusuchen, sie zu löschen und somit die unteren (vollen) Zellen an die oberen (ebenfalls vollen) Zellen anzuschließen.

Antwort als Funktionscode ist OK!!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probl.: Leere Zellen suchen und löschen (Code)
03.09.2003 09:57:11
OttoH
Hallo Tobias,

sortiere die Zeilen einfach nach einem beliebigen Sochbegriff in aufsteigender Fole. Dann stehen die leeren Zellen am Ende.

Gruß OttoH
AW: Probl.: Leere Zellen suchen und löschen (Code)
03.09.2003 09:58:45
WernerB.
Hallo Tobias,

markiere den relevanten Zellbereich und starte dann dieses Makro:

Sub TobiasR()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long, j As Long
Dim sl As Integer, sr As Integer, i As Integer
Application.ScreenUpdating = False
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
For i = sl To sr
For j = zu To zo Step -1
If Cells(j, i).Value = "" Then _
Cells(j, i).Delete Shift:=xlUp
Next j
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller (siehe dazu Forums-FAQ)!
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
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
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
Anzeige
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
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
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
Anzeige
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