Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leere Zelle finden

Leere Zelle finden
05.06.2008 20:49:11
ABO
Hallo zusammen,
ist es möglich beim starten der Excel Datei eine MsgBox mit folgenden Informationen zu bekommen:
Spalte V nach leeren Zellen durchsuchen
-Wenn leere Zellen vorhanden sind soll eine Auswahl erscheinen (Filter Ja/Nein)
-Wenn ja angeklickt wird wir die Spalte V nach leeren Zellen gefiltert
-Wenn nein angeklickt wird, wird die Datei normal geöffnet
Gruß ABO

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zelle finden
05.06.2008 21:14:14
Ramses
Hallo
"...Spalte V nach leeren Zellen durchsuchen..."
Hast du denn alle 65356, oder mehr, Zellen vollgeschrieben ?
"...-Wenn nein angeklickt wird, wird die Datei normal geöffnet..."
Die Datei ist doch bereits geöffnet. Du könntest dann allenfalls den Filter nicht setzen.
Gruss Rainer

AW: Leere Zelle finden
05.06.2008 21:27:19
ABO
Hallo Rainer,
1.) Es könnnen alle leeren Zellen der Spalte "V" in abhängigkeit der Spalte "A" und "B" gefiltert werden.
2.) Wenn nein angeklickt wird, soll der Filter nicht gesetzt werden.
Gruß ABO

AW: Leere Zelle finden
05.06.2008 21:58:10
Ramses
Hallo
Was bedeutet dies:
"...1.) Es könnnen alle leeren Zellen der Spalte "V" in abhängigkeit der Spalte "A" und "B" gefiltert werden...."
Stehen in den Spalten C bis U Daten in zusammenhängender Form, d.h. sind alle Spalten gefüllt ?
Gruss Rainer

Anzeige
AW: Leere Zelle finden
05.06.2008 22:29:27
ABO
Hallo Rainer
Wenn zB. die Zelle A1 oder B1 nicht leer ist und die Zelle V1 ist leer, dann sollte er mir die Zeile 1 Filtern
Gruß ABO

AW: Leere Zelle finden
05.06.2008 22:56:53
Ramses
Hallo
Du hast meine Frage nicht beantwortet:
Sind ALLE Spalten von C bis U gefüllt ?
Das ist wichtig, weil sonst kein Filter verwendet werden kann, dann ist das ganze wesentlich aufwändiger
Gruss Rainer

AW: Leere Zelle finden
06.06.2008 07:21:47
ABO
Hallo Rainer,
nein, es sind nicht alle Zellen von C bis U gefüllt!
Gruß ABO

AW: Leere Zelle finden
Ramses
Hallo
Dann lässt sich die Tabelle nicht automatisch filtern.
EXCEL kann nur zusammenhängende Datenbereiche korrekt filtern, daher eine andere VBA-Variante
Das gehört in das VBA-Klassenmodul ("Diese Arbeitsmappe")
Option Explicit

Private Sub Workbook_Open()
    AskForFilter
End Sub

Das gehört in ein VBA-Modul deiner Mappe
Option Explicit

Sub AskForFilter()
    Dim lastRow As Long, QE As Integer
    Dim wksCheckWks As Worksheet
    Set wksCheckWks = Worksheets("Sheet1")
    With wksCheckWks
        lastRow = .UsedRange.Rows.Count
        If Not .Range("V1:V" & lastRow).Find("", Range("V1")) Is Nothing Then
            QE = MsgBox("Leere Zellen gefunden,... Filter setzen ?", vbOKCancel + vbInformation, "Filter")
            If QE = vbCancel Then Exit Sub
            .Range("A1:V" & lastRow).AutoFilter Field:=22, Criteria1:="="
            Exit Sub
        End If
        .Range("A1:V" & lastRow).AutoFilter
        .Select
    End With
End Sub

Den Tabellennamen bei "Set wksCheckWks = Worksheets("Sheet1")" bitte noch anpassen.
Beim öffnen der Datei, müssen die Makros aktiviert werden
Gruss Rainer

Anzeige
AW: Leere Zelle finden
06.06.2008 11:09:00
ABO
Hallo Rainer,
erst einmal Danke schön!!!
Es gibt nur ein kleines Problem:
Das Makro Filtert mir alle leeren Zellen in der Spalte V. Es wäre jedoch schön wenn er nur die leeren Zellen findet, wo auch was in der Spalte A oder B steht!
Kann man auch noch das OK und Abrechen in der MsgBox gegen ein Ja und Nein ändern?
Gruß ABO

AW: Leere Zelle finden
Ramses
Hallo
Kommen sonst noch Anforderungen die du noch nicht genannt hast ?
Option Explicit

Sub AskForFilter()
    Dim lastRow As Long, QE As Integer
    Dim wksCheckWks As Worksheet
    Set wksCheckWks = Worksheets("Sheet1")
    With wksCheckWks
        lastRow = .UsedRange.Rows.Count
        If Not .Range("V1:V" & lastRow).Find("", Range("V1")) Is Nothing Then
            QE = MsgBox("Leere Zellen gefunden,... Filter setzen ?", vbOKCancel + vbInformation, "Filter")
            If QE = vbCancel Then Exit Sub
            With .Range("A1:V" & lastRow)
                .AutoFilter Field:=22, Criteria1:="="
                .AutoFilter Field:=1, Criteria1:="<>"
                .AutoFilter Field:=2, Criteria1:="<>"
            End With
            Exit Sub
        End If
        .Range("A1:V" & lastRow).AutoFilter
        .Select
    End With
End Sub

Gruss Rainer
Anzeige

309 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1