Herbers Excel-Forum - das Archiv

Alle Zellen mit Jahr 2004 markieren

Bild

Betrifft: Alle Zellen mit Jahr 2004 markieren
von: Frank
Geschrieben am: 25.09.2003 12:42:28
Hallo,

ich möchte alle Zellen der Spalte A markieren, die im Jahr 2004 liegen.
Wobei alle Zellen in Spalte A im Datumformat vorliegen.
Wie krieg ich das hin?

Danke

Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: PeterW
Geschrieben am: 25.09.2003 12:49:23
Hallo Frank,

geht es nur um Markierung oder soll damit noch etwas geschehen? Für Markierung würde die bedingte Formatierung reichen. In A1 die bedingte Formatierung Formel ist =Jahr(A1)=2004, Format wählen und dann das Format auf alle Zellen übertragen.

Gruß
Peter
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: Frank
Geschrieben am: 25.09.2003 12:51:40
Hallo Peter,

die Zellen sollen markiert und kopiert werden.
Also eine Markierung mittels bedingter Formatierung reicht leider nicht aus.

Gruß

Frank
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: Dirk
Geschrieben am: 25.09.2003 12:54:04
Hallo.

Versuchs doch mal mit Autofilter und dann kopiere die Daten.
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: PeterW
Geschrieben am: 25.09.2003 12:56:12
Hallo Frank,

wo ist das Problem mit VBA gut? Mal ins Unreine

Sub Daten_uebertragen
dim lgRow as Long
dim lgZiel as Long
For lgRow = 1 to Range("A65536").end(xlUp).Row
If year(cells(lgRow,1) = 2004 then
Sheets(Ziel).Cells(lgZiel, 1) = cells(lgRow, 1)
lgZiel = lgZiel +1
End If
Next
End Sub


Gruß
Peter
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: ChrisL
Geschrieben am: 25.09.2003 12:54:05
Hi Frank

Option Explicit

Sub Macro1()
Dim Zelle As Object
Dim Auswahl As String
For Each Zelle In Range("A1:A" & Range("A65536").End(xlUp).Row)
If IsDate(Zelle) Then
If Year(Zelle) = 2004 Then
If Auswahl = "" Then
Auswahl = Zelle.Address
Else
Auswahl = Auswahl & "," & Zelle.Address
End If
End If
End If
Next Zelle
Range(Auswahl).Select
End Sub


Gruss
Chris
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: Mac4
Geschrieben am: 25.09.2003 12:54:52
Hallo Frank,

probiers mal hiermit:

Sub test()
Dim zelle, str As String, strg As String
For Each zelle In Range("A1:A100")
If Year(zelle.Value) = "2004" Then
str = str & zelle.AddressLocal(False, False) & ","
End If
Next
strg = Left(str, Len(str) - 1)
Range(strg).Select
End Sub


Marc
Bild

Betrifft: AW: Alle Zellen mit Jahr 2004 markieren
von: Frank
Geschrieben am: 25.09.2003 13:08:39
Vielen Dank für die Antworten,

funktioniert auch einwandfrei. Bin wohl kopfmäßig schon im Wochenende gewesen.

Gruß

Frank
 Bild
Excel-Beispiele zum Thema " Alle Zellen mit Jahr 2004 markieren"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen