Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter - Zeilenweise bearbeiten VBA

Autofilter - Zeilenweise bearbeiten VBA
18.01.2014 22:17:35
Stefan
Hallo Zusammen,
ich habe eine Tabelle über den Autofilter gefilter (mit VBA). Nun möchte ich zeilenweise hinter jeder Zeile (in Spalte J) etwas eintragen, weiß aber die Zeilennummer des Active.CurrentRegion nicht. Im dem Handbuch habe ich gefunden, wie ich die letzte oder die erste Zeile heißt, aber nicht die Zeilennummer der einzelnen Zeilen in dem gefilterten Bereich. Wäre sehr dankbar für eure Hilfe.
Gruß Stefan

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter - Zeilenweise bearbeiten VBA
19.01.2014 05:26:36
Matze
Hallo Stefan,
eine Lösung für "JEDE" gefilterte Zeile wenn den "SELBEN WERT" einfügen möchtest hätte ich hier nun zusammen gebaut.
(Die Funktion hab ich hier im Forum gefunden ist von "Christian" supie, die ist gespeichert, grins)
WICHTIG:
- in den Function den Tabellennamen anpassen
- habe UsedRange benutzt für das Filtern ansonsten den Filterbereich anpassen
Musterdatei: https://www.herber.de/bbs/user/88878.xlsm
Gruß Matze

Vielen Dank - aber noch eine kleine Frage
19.01.2014 11:56:43
Stefan
Hallo Matthias,
konntest du nicht schlafen? Vielen Dank für deine Antwort. Den Beitrag habe ich nicht gefunden.
Woher weißt du immer in welchem Beitrag was steht, denn die Betreffzeile sagt oft nicht viel aus?
Nun gut, mir hat der Betrag super weitergeholfen und ich habe mir die Datei angesehen.
Ich mußte sie aber ein wenig umändern, da ich Application.CountA nicht gefunden habe.
With Application
If .CountA(wks.Cells) = 0 Then Exit Function
If .CountA(wks.Rows(wks.Rows.Count)) Then
LastRow = wks.Rows.Count: Exit Function
End If
Vielleicht kannst du mir da noch helfen, es hat aber auch mit einer anderen Funktion geklappt. Nochmals vielen Dank.
Stefan

Anzeige
AW: Vielen Dank - aber noch eine kleine Frage
19.01.2014 13:18:24
Matze
Hallo Stefan,
zu: Ich mußte sie aber ein wenig umändern, da ich Application.CountA nicht gefunden habe.

versteh das "nicht gefunden" nicht, bekommst du eine Fehlermeldung?
An der 

Function LastRow NIX ändern , nur die ist für dich wichtig, denn diese ermittelt "die Letzte  _
Zeile"
- Das Makro:


Sub SetSpalte_J()
Application.ScreenUpdating = False
With ActiveSheet 'im aktuellen Blatt
'setze den Autofilter im "benutzten Bereich"
.UsedRange.AutoFilter Field:=5, Criteria1:="44444" 'UsedRange oder definierte mit .Range("$A$1: _
$F$12")
.Range("J1:J" & LastRow(Sheets("Tabelle1"))).FormulaR1C1 = "x" 'Blattname anpassen WICHTIG!
.Range("J1").ClearContents 'erste Zeile löschen
.UsedRange.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Anzeige
AW: Vielen Dank - aber noch eine kleine Frage
19.01.2014 20:08:50
Stefan
Hallo Matthias, alles im grünen Bereich. Ich hatte gedacht, dass die Function bei mir nicht so funktioniert, da in der DropDownliste CountA nicht aufgelistet war. Ich habe nur andere Function genommen, um die erste und die letzte Zeile zu ermitteln (aus dem Programmierhandbuch Excel 2010 - Microsoft). Hier einmal die Functions:

Function LastRow() As Long
If ActiveSheet.AutoFilterMode = True then
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Else
LastRow = 0
End If
End Function
und

Function FirstRow() As Long
If ActiveSheet.AutoFilterMode = True Then
FirstRow = ActiveSheet.Autofilter.Range.Offset(1,0).SpecialCells(xlVisible).Row
Else
FirstRow = 0
End If
End Function
damit hat es gut funktioniert.
Also nochmals danke und einen schönen Abend.
Gruß Stefan

Anzeige
Super, Danke für deine Rückmeldg. owT
19.01.2014 21:16:14
Matze

301 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
Autofilter mit VBA
Steffan

Hallo ihr Lieben,
ich hab ein Problem mit einer Filter Routine. In einer Mitgliederliste soll Excel beim Aufruf der Datei überprüfen, ob Mitglieder ihr Austrittsdatum erreicht haben. In Spalte I stehen diese Daten im Format 31.12.2008.
Aus dem Archiv hab ich mir folgenden Code herausges...
12.01.2009 19:15:39
Thread-ID: 1038988
4 Beiträge
Autofilter per VBA aufrufen
Armin

Hallo,
ich habe folgendes Problem mit VBA.
Ich habe in einer Liste den Autofilter eingebunden. Per VBA selektiere ich Daten nach Datumswerten mit folgendem Code:
Zunächst lese ich das in Zelle A1 vorhandene Datum "01.01.2009" aus und lege dieses in der Variable "datVon" ab. Diese Va...
21.01.2009 15:45:00
Thread-ID: 1042249
4 Beiträge
Anzeige
Problem mit Autofilter über VBA
Antsche


Wunderschönen guten Tag,
ich habe ein Problem bei der Nutzung des Autofilters über VBA.
In meinem Excel-File gibt es Tabellenblätter in denen Datensätze hinterlegt sind. Diese sollen über Eingaben in eine UserForm (ComboBoxen) gefiltert werden. Hier die Datei dazu:
https://www...
18.06.2009 16:53:36
Thread-ID: 1082687
4 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Autofilter Doppelnennungen filtern über VBA
Emil

Hallo zusammen,
ich habe folgendes Problem innerhalb eines größeren Makros:
Ich habe eine Tabelle aus der ich mittels eines Makros Werte in ein Diagramm übertrage.
Hierzu werden schon Spalten über den Autofilter nach bestimmten Auswahlkriterien gefiltert, das funktioniert alles wund...
03.09.2009 17:33:39
Thread-ID: 1100285
2 Beiträge
Blattschutz - Zugriff auf Autofilter -VBA-
Wolfgang

Hallo,
mit nachstehendem Code wird in allen Tabellenblättern der Blattschutz eingeschaltet. Nun mußte ich feststellen, dass AutoFilter sich nicht bedienen lässt, so dass ich hierzu die nachstehende Ergänzung eingebaut habe. Allerdings ohne Erfolg, es tut sich nichts.- Wie müßte ich den Cod...
26.10.2009 19:52:57
Thread-ID: 1112334
5 Beiträge
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 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
2
3
3
4
3
2
1
4
7
1
2
8
8
3
9
11
4
2
4
4
5
3
2
4