Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Datum Sortieren

Betrifft: Datum Sortieren von: Vulferin
Geschrieben am: 25.07.2014 16:16:57

Ich möchte in Spalte K nach Datum sortieren. 14 Tage vor Aktellem Datum und alles nach Aktuellem Datum

dies ist mein Code
Ich nutze ein ToggleButton um mir die Spalten in die Listbox anzuzeigen
nach normaliegen drücken soll er die Filterung wieder zurück setzten

  • Private Sub ToggleButton2_Click()
    With ToggleButton2
    .Caption = "Fristen " & IIf(.Value = True, "schliessen", "anzeigen")
    End With
    If ToggleButton2.Value = True Then
    ActiveSheet.Range("K:K").AutoFilter Field:=13, Criteria1:="(k:k-HEUTE()<14)*(k:k>0)"
    'Startroutine, wird ausgefŸhrt bevor die Eingabemaske angezeigt wird
    
       Dim lZeile As Long
      
         'Alle TextBoxen leer machen
         TextBox1 = ""
         TextBox2 = ""
         TextBox3 = ""
         TextBox4 = ""
         TextBox5 = ""
         TextBox6 = ""
         TextBox7 = ""
         TextBox8 = ""
         TextBox9 = ""
         CheckBox1 = ""
         TextBox11 = ""
         CheckBox2 = ""
         TextBox13 = ""
         CheckBox3 = ""
         TextBox15 = ""
         CheckBox4 = ""
         TextBox17 = ""
         TextBox18 = ""
         TextBox19 = ""
      
         'In dieser Routine laden wir alle vorhandenen
         'Eintr_ge in die ListBox1
         ListBox1.Clear 'Zuerst einmal die Liste leeren
        
         lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
         'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
         Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
            
             'Aktuelle Zeile in die ListBox eintragen
             If Tabelle1.Rows(lZeile).Hidden = False Then ListBox1.AddItem Trim(CStr(Tabelle1.Cells( _
    lZeile, 1).Value))
            
             lZeile = lZeile + 1 'N_chste Zeile bearbeiten
            
         Loop
       End If
    
    If ToggleButton2.Value = False Then
    ActiveSheet.Range("K:K").AutoFilter Field:=13
       
         'Alle TextBoxen leer machen
         TextBox1 = ""
         TextBox2 = ""
         TextBox3 = ""
         TextBox4 = ""
         TextBox5 = ""
         TextBox6 = ""
         TextBox7 = ""
         TextBox8 = ""
         TextBox9 = ""
         CheckBox1 = ""
         TextBox11 = ""
         CheckBox2 = ""
         TextBox13 = ""
         CheckBox3 = ""
         TextBox15 = ""
         CheckBox4 = ""
         TextBox17 = ""
         TextBox18 = ""
         TextBox19 = ""
      
         'In dieser Routine laden wir alle vorhandenen
         'Eintr_ge in die ListBox1
         ListBox1.Clear 'Zuerst einmal die Liste leeren
        
         lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
         'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
         Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
            
             'Aktuelle Zeile in die ListBox eintragen
             If Tabelle1.Rows(lZeile).Hidden = False Then ListBox1.AddItem Trim(CStr(Tabelle1.Cells( _
    lZeile, 1).Value))
            
             lZeile = lZeile + 1 'N_chste Zeile bearbeiten
            
         Loop
        End If
    End Sub

  •   

    Betrifft: super Plan,... von: Oberschlumpf
    Geschrieben am: 25.07.2014 16:25:52

    ...den du dir da ausgedacht hast, #Name?.

    Wie wärs, wenn du uns den Code in einer Bsp-Datei zeigst, die natürlich alle erforderlichen Daten enthält, damit man deine Frage verstehen und vielleicht lösen kann?

    Ciao
    Thorsten


      

    Betrifft: AW: super Plan,... von: Vulferin
    Geschrieben am: 25.07.2014 16:29:50

    kommt 1 sec


      

    Betrifft: AW: super Plan,... von: Vulferin
    Geschrieben am: 25.07.2014 16:44:23

    So jetzt
    Hab gerade festgestellt das es einen Unterschied zwischen Excel Mac und Windows gibt
    oder 11 und 2013
    aber jetzt gehts wie es sein sollte bis auf das mit dem Datum

    https://www.herber.de/bbs/user/91724.xlsm



      

    Betrifft: AW: super Plan,... von: Vulferin
    Geschrieben am: 25.07.2014 16:44:37

    So jetzt
    Hab gerade festgestellt das es einen Unterschied zwischen Excel Mac und Windows gibt
    oder 11 und 2013
    aber jetzt gehts wie es sein sollte bis auf das mit dem Datum

    https://www.herber.de/bbs/user/91724.xlsm



      

    Betrifft: AW: super Plan,... von: Vulferin
    Geschrieben am: 25.07.2014 16:45:17

    hats geklappt ?


      

    Betrifft: AW: super Plan,... von: Vulferin
    Geschrieben am: 25.07.2014 16:51:57

    Ich habs danke
    Macro editor in Windows Excel besser wie aufem Mac :)
    arbeite doch liebe jetzut mit windows weiter :)


      

    Betrifft: bin raus, wer anderes bitte... von: Oberschlumpf
    Geschrieben am: 25.07.2014 16:52:43

    nöö, hat nich geklappt.
    ich finde in der Datei nirgendwo Daten.
    WAS soll da denn sortiert werden?


      

    Betrifft: AW: bin raus, wer anderes bitte... von: Vulferin
    Geschrieben am: 25.07.2014 17:10:15

    das datum.
    ich ab jetzt eine bedingte Formatierung in die Spalte gesetzt und mir dann über Filter datum filtern lassen.
    klappt 1a
    ich teste nochmal den Upload
    https://www.herber.de/bbs/user/91725.xlsm



    jetzt neue sache :)
    wie kann ich über vba eine Suche starten
    er soll aber mir nur die Suchtreffer in die Listenbox packen


     

    Beiträge aus den Excel-Beispielen zum Thema "Datum Sortieren"