Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zaehler funktioniert nicht

Forumthread: Zaehler funktioniert nicht

Zaehler funktioniert nicht
abu
Hallo Zusammen,
hab wieder mal ein kleines Problem und hoffe das Ihr mir helfen koennt.
Per Makro wird ein Filter gesetzt. Da ich diese Daten nicht brauche sollen sie geloescht werden. Um die letzte Zeile zu finden benutze ich diesen Code
z = 2
While .Cells(z, 1) ""
z = z + 1
Wend
z = z - 1
Leider hoert der Zaehler nicht auf und ich vermute mal er laeuft auch die gefilterten Zeilen ab. Ich moechte aber des er nur die Zeilen zaehlt die Angezeigt werden....
Hoffe es hat jemand eine Loesung fue mein Problem.
Beste Gruesse
Abu
Anzeige
AW: Zaehler funktioniert nicht
17.08.2010 14:06:34
Gerd
Hallo Abu!
Bis ca. 16000 Zeilen.
Intersect(Tabelle1.Columns(1).SpecialCells(xlCellTypeVisible), Tabelle1.AutoFilter.Range.Offset(1).Resize(Tabelle1.AutoFilter.Range.Rows.Count - 1)).EntireRow.Select
Gruß Gerd
AW: Zaehler funktioniert nicht
17.08.2010 14:13:41
abu
Hallo Gerd,
danke fuer Deine Schnelle hilfe. Leider laeufts noch nicht.
Vorher:
With Worksheets("Sheet1")
z = 2
While .Cells(z, 1) ""
z = z + 1
Wend
z = z - 1
Rows(Cells.SpecialCells(xlCellTypeVisible).Areas(2).Row & ":" & x).Select
Selection.Delete Shift:=xlUp
End With
Nachher:
With Worksheets("Sheet1")
Intersect(Sheet1.Columns(1).SpecialCells(xlCellTypeVisible), Sheet1.AutoFilter.Range.Offset(1).Resize(Sheet1.AutoFilter.Range.Rows.Count - 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
End With
Was mache ich denn noch falsch?
Gruss
Abu
Anzeige
AW: Zaehler funktioniert nicht
17.08.2010 14:20:12
Gerd
Hallo Abu,
unterstellt der Autofilter geht auch über Spalte A (Columns(1) nicht viel. Select ist nur zum Testen drin.
Stattdessen kannst Du ".Delete" direkt hintendran schreiben.
With Worksheets("Sheet1")
Intersect(.Columns(1).SpecialCells(xlCellTypeVisible), .AutoFilter.Range.Offset(1).Resize(.AutoFilter.Range.Rows.Count - 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
End With
Gruß Gerd
Anzeige
Cells(Rows.Count, 1).End(xlUp).Row
17.08.2010 14:19:29
{Boris}
Hi Abu,
...ermittelt Dir die letzte gefilterte Zeile der Spalte A.
Grüße Boris
AW: Cells(Rows.Count, 1).End(xlUp).Row
17.08.2010 14:28:24
Hajo_Zi
Hallo Boris,
das ist falsch. Es wird Autofilter benutzt.

Teste es doch mal...
17.08.2010 14:29:23
{Boris}
Hi Hajo,
...es wird die letzte gefilterte Zeile ermittelt.
Grüße Boris
Anzeige
AW: Cells(Rows.Count, 1).End(xlUp).Row
17.08.2010 14:33:29
Gerd
Hallo Boris!
...ermittelt Dir die letzte gefilterte Zeile der Spalte A.
Mit gewissen Einschränkungen; keine Werte unterhalb des Filterbereichs; keine leeren Werte mitgefiltert.
Gruß Gerd
AW: Zaehler funktioniert nicht
17.08.2010 14:55:40
mpb
Hallo Abu,
aus Deinem Code schließe ich, dass Du beginnend ab Zeile 2 alle nach dem Filterprozess sichtbaren Zeilen löschen möchtest, und ich vermute weiterhin, dass es unter dem zu filternden Bereich keine weiteren Einträge in der Tabelle gibt. Ist das richtig? Dann brauchst Du keinen Zähler und keine Schleife. Folgende Codezeile unter Berücksichtigung von{Boris} Beitrag löscht diese Zeilen in einem Aufwasch:
Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Gruß
Martin
Anzeige
AW: Zaehler funktioniert nicht
17.08.2010 16:08:41
abu
Hallo an Alle,
Danke an Alle!
Habe jetzt die Zeile von Martin genommen. Sie funktioniert so nun aber das bringt leider ein anderes Problem.
Den Filter lege ich fuer bestimmte Buchstabenkombis fest, es sind aber nicht immer alle enthalten und wenn ich dann den Filter setze und nicht angezeigt wird dann loescht er mir die erste Zeile und danach laeuft alles schief.
Habe es mit If Zelle A2 "" probiert aber der Filter ist ja drauf....
Welche Abfrage kann ich denn machen nachdem der Filter gesetzt ist um vor der Zeile von Martin zu pruefen ob es ueberhauot Inhalt gibt?
Gruesse
Abu
Anzeige
nach Filter pruefen auf Inhalt
17.08.2010 16:09:58
abu
wie immer vergessen Frage auf offen zu stellen
AW: Zaehler funktioniert nicht
17.08.2010 16:59:14
abu
Noch mal Hallo,
hier noch ein kleines Danke an Alle.
Die Loesung ist If Cells(Rows.Count, 1).End(xlUp).Row groesser 1 Then
Gruss
Abu
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Diagramm funktioniert nicht unter Ex 2007
Bernd

Hallo,
Nachdem ich eines meiner Probleme selbst gelöst habe, doch noch einmal zu dem Problem, dass ich einem Chart in Excel 2003 über VBA neue Bereiche zuordnen kann, wenn ich die Datei aber unter Excel 2007 öffne, bekomme ich eine Fehlermeldung.
Vielleicht findet sich ja doch noch jema...
20.08.2008 12:37:17
Thread-ID: 1003172
3 Beiträge
Anzeige
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Warum funktioniert der Code nicht ?
TomTom


Hi,
ich habe auf meinem Scheet 2 Textboxen untereinander (1 und 2)
Da werden nun daten reingeladen. Entsprechend der Texteingabe, werden auch die Textboxen entsprechend hoch. Mein Ziel war es, wenn in der Textbox1 so viel Text drin steht, dass die Untere Kante der Textbox1 über di...
10.09.2008 13:22:37
Thread-ID: 1008773
3 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Namen mit Konstante: funktioniert nicht!?
Jens

Hallo liebes Forum,
leider mag mich Excel mal wieder nicht:
Folgende Formel funktioniert zwar:
=ANZAHL2('Mein_Blatt'!6:6)
und liefert den richtigen Wert, aber ich möchte die Formel nach unten kopieren; dabei wird der Wert 6 inkrementell erhöht, was aber nicht passieren soll.
11.09.2008 16:58:00
Thread-ID: 1009181
4 Beiträge
Anzeige
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
DisplayHeading funktioniert nicht für alle Sheets
Backblech

Hallo liebe Leute,
ich würde gerne in meiner Excel-Datei auf allen Sheets die Zeilen- und Spaltenbeschriftungen ausblenden. Normalerweise geht das ja ganz einfach mit:
Application.ActiveWindow.DisplayHeadings = False
Soweit, so gut, aber in meiner Datei werden bei Aufruf des Befehls...
22.09.2008 10:55:07
Thread-ID: 1011404
5 Beiträge
Anzeige
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 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