Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
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
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

filtern, dann Datum setzen

filtern, dann Datum setzen
Rene
Hallo!
Ich habe ein kleines Problem und weiß nicht mehr weiter...
Ich benötige ein kleines Makro, welches mir beim Klick auf einen CommandButton das jeweils aktuelle Datum in Spalte AB schreibt, aber nur in den Zeilen die ich vorher mit dem Autofilter ausgewählt habe.
Also erst Autofilter (Spalte AA = größer 0, Spalte AB = leer), dann in Spalte AB (in den gefilterten Zeilen) das aktuelle Datum setzen.
Kann mir jemand helfen?
Danke im voraus!
Gruß René

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: filtern, dann Datum setzen
23.03.2010 09:40:52
welga
Hallo,
versuch es mal so(ungetestet):
Private Sub CommandButton1_Click()
For i = 2 To Sheets(1).[a65536].End(xlUp).Row
If Cells(i, 27) > 0 And Cells(i, 28) = "" Then Cells(i, 28) = Now
Next i
End Sub
eventuell musst du noch etwas modifizieren.
gruß
welga
AW: filtern, dann Datum setzen
23.03.2010 10:30:25
Heiko
Hallo Rene,
z.B. so:
Private Sub CommandButton1_Click()
Dim lngCounter As Long
For lngCounter = 2 To ActiveSheet.Cells(65535, 27).End(xlUp).Row
If ActiveSheet.Cells(lngCounter, 27).EntireRow.Hidden = False Then ActiveSheet.Cells( _
lngCounter, 28) = Date
Next lngCounter
End Sub
Gruß Heiko
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige