Thema Datum  Von Nutzer Rating
Antwort
Rot Nach Datum suchen und Zelle markieren
 26.05.2020 08:54:03 Alex
NotSolved
26.05.2020 09:53:55 Gast64792
NotSolved
26.05.2020 10:16:43 Gast90957
NotSolved
26.05.2020 14:34:25 Gast66825
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
26.05.2020 08:54:03		 Views:
1684		 Rating:
     
Antwort:
  Ja
Thema:
Nach Datum suchen und Zelle markieren

Guten Morgen zusammen,

 

ich möchte in einer Spalte nach einem Datum suchen und die erste Zelle mit diesem Datum markieren. 

Wenn ich das per Makrorekorder mache, funktioniert das auch beim Aufzeichnen. Wenn ich den Rekorder dann aber abspiele, geht es nicht mehr. 

Das Datum steht in Tabelle in B3. 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sheets("Tabelle2").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle1").Select
    Columns("A:A").Select
    Selection.Find(What:="02.01.2020", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Range("A98").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
   
    Range("A1").Select
End Sub

 

Oder alternativ so: Geht aber auch nicht.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Dim Zeile As Long
  Dim Eingabe As String
   
   
  Eingabe = Worksheets("Tabelle2").Range("B2").Value
   
Sheets("Tabelle1").Select
Columns("A:A").Select
 
 
On Error GoTo xx
Zeile = Sheets("Tabelle1").Columns("a:a").Find(What:=Eingabe, After:=ActiveCell, LookIn:= _
xlFormulas, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False).Row
 
 
Exit Sub
xx:
MsgBox "Wert nicht gefunden " & Eingabe
     
End Sub

 

Kann mir jemand helfen? 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Nach Datum suchen und Zelle markieren
 26.05.2020 08:54:03 Alex
NotSolved
26.05.2020 09:53:55 Gast64792
NotSolved
26.05.2020 10:16:43 Gast90957
NotSolved
26.05.2020 14:34:25 Gast66825
NotSolved