Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!!

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige