Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro auf gefilterte Zeilen ausführen geht nicht

Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:35:49
JEns
Hallo,
ich möchte gerne das Datum in die Spalte V schreiben lassen von gefilterten Zeilen.
Probiere es so, aber es werden immer alle Zeilen, die auch nicht gefilterte werden beschrieben, bis zur letzten gefilterten Zeile.
Weis jemand was hier falsch ist? 

Dim iRow As Range
For Each iRow In Range("A16:A" & Range("A65536").End(xlUp).Row)
If Sheets("Aufstellung").Rows(iRow).Hidden = False Then
If .Cells(iRow, 22).Value = "" Then
.Cells(iRow, 22).Value = Format(Now, "YYMMDD")
Else
.Cells(iRow, 22).Value = ""
End If
End If
Next

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:38:35
Hajo_Zi
Du prüfst nur den Inhalt und nicht die Zeilenhöhe.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:42:36
JEns
Hä? Warum Zeilenhöhe?
Die Zeilenhöhe ist mir ja egal.
Ich will ja nur den Inhalt
Verstehe ich nicht...
Anzeige
Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:45:39
Hajo_Zi
Gut dann habe ich das wohl falsch interpretiert. Es sollte also nicht auf gefilterte Zeilen angewendet werden.
Ich bin dann raus, da Aufgabe falsch interpretiert.
Gruß Hajo
AW: Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:44:49
Sepp
Hallo Jens,
formatiere die Spallte mit 'JJMMTT' und dann diesen Code.
  On Error Resume Next
  With Sheets("Aufstellung").AutoFilter.Range
    .Columns(22).SpecialCells(xlCellTypeVisible).Value = Date
  End With
  On Error GoTo 0


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:49:58
JEns
Dank Sepp.
Wie baue ich dann noch ein, wenn eine ZElle bereits gefüllt ist, dass nicht noch mal ein Datum reingeschrieben werden kann?
AW: Makro auf gefilterte Zeilen ausführen geht nicht
10.02.2018 11:50:54
Sepp
Hallo Jens,
  On Error Resume Next
  Sheets("Aufstellung").AutoFilter.Range.Columns(22).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks).Value = Date
  On Error GoTo 0


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
.Cells ohne With ? Der Code ist fehlerhaft ... owT
10.02.2018 11:46:13
Matthias
Nur die Leerzellen
10.02.2018 11:49:16
Sepp
Hallo Jens,
du wolltest ja nur die leeren zewllen befüllen.
  On Error Resume Next
  Sheets("Aufstellung").AutoFilter.Range.Columns(22).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks).Value = Date
  On Error GoTo 0


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige

330 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Zellen Format ändern geht nicht
TommiH

Hallöchen,
ich habe ein riesen Problem. Ich habe eine Excel-Datei bekommen mit der ich etwas tun soll und ich kann die Zellenformate nicht ändern/anpassen. Irgendwie erscheint das Menü nicht.
Weder STRG-1 noch Format/Zellen noch rechte Maustaste und Zelle formatieren bringt das normal ü...
18.12.2008 13:13:59
Thread-ID: 1033841
11 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Anzeige
Leere und Nichtleere Zellen einer Spalte rechnen
Urmila

Hallo,
habe ien Problem, ich habe eine Liste, in Spalte A stehen Werte (Zahlen), in der Spalte B stehen Namen.
Nun will ich, dass er mir in der Zelle D1 alle Werte aus spalte A ausrechnet, wo die Zellen in Spalte B Inhalte haben, und in Zelle E1 wo kein Inhalt steht.
Ich hoffe ich k...
30.06.2009 12:41:41
Thread-ID: 1085323
4 Beiträge
zellen einfügen per makro nicht gesperrt
Markus

Hallo Excel-Helfer,
ich bräuchte ein Makro, das kopierte und gesperrte Zellen beim Einfügen in meine Tabelle ungesperrt einfügt.
Beispiel:
ich öffne in excel eine neue Mappe. Alle Zellen sind standardmäßig gesperrt. Wenn ich nun beliebige Zellen kopiere und in meine Excel-Datei ein...
13.09.2009 13:36:33
Thread-ID: 1102399
29 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo Zusammen
Ich habe eine Tabelle mit VBA erstellt, jetzt kann ich die Tabelle innerhalb des Bereiches, wo die Tabelle Daten aufweisst nicht mehr formatieren.
Kontextmenu (Maus Rechtsklick) - Zellen formatieren
oder
Start - Schriftart, Ausrichtung, Zahl
bei all diesen Me...
19.07.2010 15:58:15
Thread-ID: 1167741
4 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
3
9
10
5
7
3
28
1
1
3
5
1
2
5
2
2
13
5
1
1
3
14
8
1
2