Thema Datum  Von Nutzer Rating
Antwort
Rot Suchfunktion
07.01.2020 15:29:12 Ali Kilic
NotSolved
07.01.2020 15:32:40 Gast7777
NotSolved
07.01.2020 15:43:46 Werner
NotSolved
08.01.2020 10:22:16 Gast52359
Solved

Ansicht des Beitrags:
Von:
Ali Kilic		 Datum:
07.01.2020 15:29:12		 Views:
741		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion

Hallo zusammen,

ich habe ein Problem in Excel bzgl. VBA:

Ich habe damals einen Button erstellt und dadurch in der Tabelle XY nach einem Datum gesucht. Dieses gefunden und anschließend die komplette Zeile kopiert und in das gewünschte Tabellenblatt in die nächst freie Zelle eingefügt. Dies hat prima funktioniert. Ich hatte das Datum in der Tabelle manuell eingegeben.

Nun habe ich die Tabelle so geändert, wenn ich in der Spalte E9 einen Wert eingebe, automatisch in der Spalte G9 das Datum von gestern einträgt. Die Datumsfunktion: =WENN(E9="";"";HEUTE()-1)
Seitdem funktioniert mein VBA Programm nicht. Die Suchfunktion nach dem Datum in der Spalte G wird nicht ausgeführt.

Mein Vba- Programm:

 

Sub zsm()

Dim rng As Range
Dim DeinWert As Variant
Dim first As String

DeinWert = InputBox(prompt:="Geben Sie ein Datum:", Default:=Format("dd.mm.yyyy"))


ActiveWorkbook.Worksheets("zsm").Range("A9:I65536").Clear

If DeinWert = "" Then Exit Sub
   DeinWert = CDate(DeinWert)


Set rng = Worksheets("415").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("zsm").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If


Set rng = Worksheets("412").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("zsm").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If

End Sub

 

 

vielen Dank im Voraus!

Mit freundlichen Grüßen

Ali Kilic

 

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:



  • 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 Suchfunktion
07.01.2020 15:29:12 Ali Kilic
NotSolved
07.01.2020 15:32:40 Gast7777
NotSolved
07.01.2020 15:43:46 Werner
NotSolved
08.01.2020 10:22:16 Gast52359
Solved