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
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filterverarbeitung

Filterverarbeitung
08.02.2009 11:00:00
Gerhard
Hallo!
Habe ein kleines Proplem!
Ich filtere mit VBA in einer Tabelle in Spalte N Daten. Nun hätte ich gerne mit VBA, dass das Filterergebniss aus Spalte N in Spalte O von oben nach unten durchnummeriert wird von 01 bis ......
Wie kann ich das machen? Bitte um Eure Hilfe.
Mit besten Dank im Voraus
Gerhard F.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filterverarbeitung
08.02.2009 11:10:27
Tino
Hallo,
wie sieht Dein Filtercode aus, besser wäre noch eine Beispieldatei.
Gruß Tino
AW: Filterverarbeitung
08.02.2009 11:15:00
Gerd
Hallo Namensvetter,
ungetestet.

Sub c()
Dim i As Long, y As Long
With ActiveSheet
For i = 2 To .AutoFilter.Range.Rows.Count
If .Rows(i).Hidden = False Then
y = y + 1
.Cells(i, "N").Value = "'" & "0" & y
End If
Next
End With
End Sub


Gruß Gerd

AW: Filterverarbeitung
08.02.2009 12:51:00
Gerhard
Hallo Gerd L.
Dankeschön für die super Hilfe! Habs schon integriert in mein Makro und funktioniert super!
Gruß, Dank und schönen Sonntag von
Gerhard F.
Formellösung - fortlaufende Nr. bei Autofilter
08.02.2009 11:39:16
Beate
Hallo Gerhard,
du kannst auch diese Formel in O2 einfügen und runterkopieren:
 LMNO
1BezeichnungEigenschaftenPreisNr.
2Äpfelsauer4,82 €1
3Äpfelsüß5,55 €2
4Äpfelsaftig4,83 €3
5Birnensauer0,25 €4
6Birnensüß2,85 €5
7Birnensaftig3,97 €6

Formeln der Tabelle
ZelleFormel
O2=WENN(N2="";"";TEILERGEBNIS(3;N$2:N2)*1)

Gruß,
Beate
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige