Seiten: 1 2 3 4 5 6 7 8 9
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 =>
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 ...
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
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 ?
Ich möchte bei Speichern das der Filter rausgeht aber die Filterpfeile sollen erhalten bleiben:)
Vielen Dank
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.
Seiten: 1 2 3 4 5 6 7 8 9