Suchfeld mit Textfenster in eine Dynamische Tabelle erstellen

[Pirat2015]

Danke

wie kann ich jetzt noch beide Varianten eintragen
=> und <=
weil wenn ich z.b 5 Stück habe und 4 auslagere dann benötige ich <=
wenn ich aber 5 Stück habe und alle 5 auslagere denn benötige ich =>

[schauan]

Hallöchen,

es kann nur einen geben

If Target.Value <= Target.Offset(, 1).Value Then MsgBox "Was in AZ" & Target.Row & " eingeben"
If Target.Value >= Target.Offset(, 1).Value Then MsgBox "Nix in AZ" & Target.Row & " eingeben"

Falls das dort passieren soll. Allerdings hast Du in dem Fall die Überschneidung bei =, solltest Dich für eins entscheiden sonst bekommst Du beide Meldungen ...

[Pirat2015]

Hallo Schauan,

ich habe bei ersten belassen. Danke.

Ich habe hier eine Thema zum Filter entfernen gesehen allerdings habe ich das nicht so richtig durgeblickt.
Wie bekomme ich nochmal automatisch die Gesetzen Filter weg, beim schließen der Tabelle.

und vor alle wo kopiere ich den Code ein?

Danke

[schauan]

Hallo,

Code kommt je nach Art in unterschiedliche codemodule. Wenn Du z.B. das Save-Ereignis nehmen willst, dann in DieseArbeitsmappe. Ohne Save sind dann auch keine bereits gespeicherten oder vor dem Speichern anders gesetzte Filter weg.


Es kommt dann auch darauf an, ob Du die "Filterpfeile" beim Speichern behalten oder entfernen willst. Wie hättest Du's denn gern ?

[Pirat2015]

Ich möchte bei Speichern das der Filter rausgeht aber die Filterpfeile sollen erhalten bleiben:)

Vielen Dank

[Case]

Hallo, :19:

beim speichern der Datei so: :21:

Code:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' Tabellenblattname anpassen!!!!!!!
    With ThisWorkbook.Worksheets("Sheet1")
        ' Ist da überhaupt ein Filter?
        If .AutoFilterMode Then
            ' Filter gesetzt?
            If .FilterMode Then
                .ShowAllData
            End If
        End If
    End With
End Sub

Der Code gehört in "DieseArbeitsmappe"!

Den Tabellenblattname musst Du noch anpassen.

Es gibt dort auch noch andere Ereignisse - z. B. Private Sub Workbook_BeforeClose(Cancel As Boolean) - da wird auf das schließen der Datei reagiert. Schau es dir einfach mal an.

Und für weitere Fragen mach bitte ein neues Thema auf - das wird sonst zu unübersichtlich.

[Pirat2015]

Perfekt Super