Excel/VBA (Visual Basic): Prüfen ob Zelle leer ist?

Hi,

Ich möchte prüfen ob beispielsweise "Cell(x,y)" leer ist. Strings die nur aus Leerzeichen sollen auch als leer gelten. Wie mache ich sowas?

lg HiFriend :)

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

09.05.2013, 22:03

Glätten ersetzt bei mir nur aufeinanderfolgende Leerzeichen durch EINES, immerhin.
ist ja wohl auch so gedacht.
Die anderen "Leerzeichen" haben keine Sammelbezeichnung. Du kannst mit =wechseln und vielfacher Verschachtelung mehrere dieser Zeichen durch leer ("") ersetzen, zB:
=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(GLÄTTEN(R2);"_";"";1);"_";"";1);"-";"";1);"-";"";1);"-";"";1);" ";"";1);" ";"";1)

Diese xl-FORMEL wechselt 2 Underbars und drei Bindestriche sowie zwei weitere durch GLÄTTEN schon isolierte Leerzeichen gegen jeweils NICHTS = "" aus. Maximale Möglichkeit in xl2003 (es sei denn, Du machst das mehrstufig über mehrere Zellen).
Ab xl2007 kannst Du mehr Verschachtelungen anlegen und damit mehr Zeichen auf einmal wechseln. Ist halt unübersichtlich.

In VBA würde ich das über Do until iserror(instr("_", Text, 1)-Schleifen machen,
das für alle auszuwechselnden Zeichentypen
und vor jeder Schleife ein
on error resume next-Befehl.
(ginge auch mit Do while instr("_", Text, 1) >=1 -Wend-Schleifen)
Oder über Suchen-Ersetzen in definiertem Bereich
(der muss aber mindestens 2 Zellen haben, sonst werden im gesamten Blatt alle diese Zeichen ersetzt!!!)
Die Einzelheiten musst Du in der Hilfe nachschlagen.

Iamiam

10.05.2013, 00:15

danke für den *, die meisten Antworten hier bleiben ja vollkommen un"besternt"! (neben denen, die wegen nur einer Antwort keinen Stern kriegen können)
Ich hoffe, Du kommst mit dem VBA-Antwort-Gerippe klar!

koca3399

08.05.2013, 17:51

Einfach zu dieser Zelle scrollen und nachgucken? Du könntest auch mal bei der Exelhilfe nachschauen, ob es einen bestimmten Befehl dafür gibt, wenn du es bei mehreren Zellen gleichzeitig herausfinden willst.

HiFriend

Beitragsersteller

08.05.2013, 17:57

nene :P .. ich möchte das mit Visual Basic prüfen :)

augsburgchris

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

08.05.2013, 18:05

If Trim(Cell(x,y))="" Then...

Trim entspricht GLÄTTEN()

HiFriend

Beitragsersteller

09.05.2013, 18:26

Danke :s

Funktioniert leider nur teilweise... da die Zellen mit mehreren Leerzeichen gefüllt sind -___-

hat da jemand noch eine Lösung für dieses Problem?

lg HiFriend

augsburgchris

13.05.2013, 02:23

@HiFriend

Strings die nur aus Leerzeichen sollen auch als leer gelten.

Kann ehrlich gesagt nicht nachvollziehen warum das nicht klappt. Trim löscht ALLE führenden und nachfolgenden Leerzeichen. Wenn in der der Zelle NUR Leerzeichen sind, sind die automatisch alle führend und werden gelöscht. ich habe 100 Leerzeichen in einer Zelle und sie wird mit Trim(cells(2,2)) ="" als leer erkannt.

Ähnliche Beiträge

In Excel mit Visual Basic Zellen leeren

Hallo zusammen,

ich würde gerne über Visual Basic, wenn eine bestimmte if Bedingung erfüllt ist (bekomme ich hin), einen Zellbereich leeren (Formatirung soll erhalten bleiben, also nur Hintergrundfarbe und Inhalt löschen), z.B. 2B bis 6E. Kann mir jemand hierbei helfen? Ich weiß leider weder wie ich eine Aktion für einen Zellbereich ausführe (es werden mehrere Zellbereiche werden) noch weiß ich, wie ich über Visual Basic Zellen leeren kann.

Gruß

...zum Beitrag

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zum Beitrag

Mit Excel VBA Drucken programmieren?

Hallo Zusammen

Ich steh wieder mal an mit VBA.

Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:

Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

End Sub

Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?

Danke im Voraus für eure Antworten!

...zum Beitrag

VBA Zellen verbinden mit schleife?

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zum Beitrag

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zum Beitrag

Wie kann ich eine Farbe mit Visual Basic auslesen und einfügen?

Hallo zusammen,

ich habe in Excel eine Liste, mit einer Hintergrundfarbe die ich aus der Farbpalette selbst hinzugefügt habe. Nun habe ich in Visual Basic hinterlegt das je nachdem was an Werten ausgespukt wird einzellne Zellen rot gefärbt werden. Cells(zd, 6).Interior.Color = vbRed Wenn man die UserForm noch mal ausführt und die Werte ok sind, soll die Farbe wieder auf die vorherige Farbe geändert werden. Da diese aber keine standart Farbe ist, weiß ich nicht wie ich diese dort wieder rein bekomme..

...zum Beitrag

Visual Basic: Bereich von Zellen prüfen mit Ausgabe?

Hallo liebe Community,

Ich will mit VBA EInen bereich von Zellen prüfen, ob daten enthalten sind. Dann soll, wenn eine Zelle gefunden wurde, rechts daneben einen wert ausgeben und 3 andere zellen löschen zb:

a1-a20 prüfen. in a5 ist gefüllt, in b5 soll "Erledigt" stehen, und c5, e5 und h5 soll gelöscht werden.

Kann mir da jemand helfen?

...zum Beitrag

Wie kann ich in VBA prüfen ob eine Zelle ein ListObject ist?

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!

...zum Beitrag

Excel VBA Aktive Zelle mit Doppelklick in Zwischenablage?

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

...zum Beitrag

Excel Vba Wert in Bereich prüfen?

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

...zum Beitrag

Excel VBA eine große Menge leere Zeilen löschen?

Hallo, ich lade eine menge Datensätze in eine Tabelle rein und dabei werden auch die leeren Zeilen zwischendurch mal reinkopiert. Diese möchte ich nun entfernen. Das gelingt mir mittlerweile auch. Das Problem ist, dass es zu lange dauert bei ca. 2800 leere Zeilen, da diese einzeln angeschaut werden und gelöscht. Mein bisheriger Code:

Function loescheLeerenBereichn()

Dim Zelle As Long
Dim LetzteZeile As Long
LetzteZeile = Sheets("Lieferung").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Zelle = LetzteZeile To 7 Step -1 ' In Range(Cells(7, 4), Cells(LetzteZeile, 4))
If Cells(Zelle, 3) = "" Or Cells(Zelle, 3) = "." Then
Rows(Zelle).EntireRow.Delete Shift:=xlUp 
End If
Next Zelle

End Function

Wie kann man das schneller programmieren?

...zum Beitrag

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zum Beitrag

ist VBA kostenlos und wo kann man es herunterladen?

Hallo Leute, braucht man für Visual Basic for Applications eine extra Entwicklungsumgebung oder geht das auch mit normalen Visual Basic? Wo kann man das herunterladen?

...zum Beitrag

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen