Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen per VBA löschen

Leerzeichen per VBA löschen
Andreas
Hallo Excelprofis!
Ich möchte mit VBA durch drücken einer Schaltfläche einen Bereich, bei mir
K72:O78 also 5 Zeilen durchlaufen.
Wenn in der kompletten Zeile in diesem Bereich in irgendeiner Spalte (K:O) ein Wert steht, sollen die Werte in dieser Zeile nicht gelöscht werden. Wenn in der kompletten Zeile in diesem Bereich kein Wert steht, soll der Inhalt der entsprechenden Zeile in diesem Bereich gelöscht werden. Ich weiß das klingt jetzt etwas komisch, weil ich ja den Inhalt leerer Zellen nicht löschen brauche. Mein Problem ist aber, das ich mit einer Formel den Inhalt einer Zelle auslese und diese Werte zählen möchte. Wenn aber in einer Zelle ein „Leerzeichen“ enthalten ist, zählt es mir auch diese Zelle mit. Und das möchte eben gerade nicht.
Kann mir da von Euch einer einen Tip oder den Programmcode dafür geben?
Ich habe in VBA wenig Erfahrung damit.
Danke erst einmal für Eure Bemühungen
Gruß Andreas

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

Betreff
Benutzer
Anzeige
AW: Leerzeichen per VBA löschen
07.04.2004 15:23:38
Martin
Hallo Andreas
Leerzeichen kannst du gut mit der Funktion TRIM() weglöschen, zB:

Sub LeerZeichLöschen()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = Trim(Zelle.Value)
Next Zelle
End Sub

Dabei werden im selektierten Bereich alle Leerzeichen gelöscht, die sich am Anfang oder am Ende eines Zellinhaltes befinden. Enthält eine Zelle nur Leerzeichen, werden die alle gelöscht.
Statt Selection kannst du natürlich auch einen Bereich fest definieren.
Gruss
Martin
AW: Leerzeichen per VBA löschen
Texas
Hier schon mal ein ansatz... bin nur noch nicht drauf gekommen wie man nach _blanks in den zellen sucht...

Sub Makro1()
Range("A1").Select
Start:
If ActiveCell.Value = "" Then  //Das würd mich auch mal interresieren
ActiveCell.Delete
ActiveCell.Next.Select
If ActiveCell = Range("D5") Then
MsgBox "Done..."
Exit Sub
End If
GoTo Start
Else
If ActiveCell = Range("D5") Then
MsgBox "Done..."
Exit Sub
End If
ActiveCell.Next.Select
GoTo Start
End If
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige