Aus- und Einchecken von Tabellenblättern

Hallo zusammen,
ich möchte meinen Themenspeicher automatisieren.
Eine entsprechende Beispieldatei habe ich beigefügt.
Was möchte ich genau?
Einzelne Themenbereiche (von einer Themenüberschrift zur nächsten Themenüberschrift) möchte ich die Möglichkeit des Aus- und Eincheckens haben.
Das Speichern eines Bereiches klappt schon leider nur noch nicht variabel in Bezug auf die dynamische Anzahl der Blätter und einer Auswahlmöglichkeit über eine List- oder Checkbox (hier sollten nur die Themen aufgelistet werden die dazugehörigen Blätter müssen per VBA ermittelt und für den Speichervorgang einbezogen werden)
Das Einchecken habe ich leider noch gar nicht hinbekommen. Auch hier sollte aufgrund des Dateinamens *Backup* oder so, eine Listbox/Checkbox erstellt werden und nach Klick wieder passend geladen werden.
Wenn dann noch die Hyperlinks der wieder hinzugefügten Blätter funktionieren wäre das perfekt.
Wer kann mir hier weiterhelfen?
Ich kann mir sehr gut vorstellen, dass solche Funktionen auch andere gut gebrauchen könnten.
https://www.herber.de/bbs/user/95607.zip
Vielen Dank!
Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens,
Kann ich bei Fragen ggf. auf dich zukommen?
Fragen sind dazu da, dass sie gestellt werden.
Zum Löschen von Zeilen in der Liste hier ein paar Makro-Varianten. Es dürfen aber nur Zeilen mit Status verschieden von "IN" gelöscht werden.
Gruß
Franz

'Makros in einem allgemeinen Code-Modul
Sub LoeschenLetzteZeile()
'Löscht letzte Zeile, wenn Status "IN"
Dim Zeile As Long, wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Übersicht")
With wks.ListObjects(1)
Zeile = .ListRows.Count
If Zeile > 10 _
And .DataBodyRange.Cells(Zeile, 5)  wks.Range("Status_IN").Value Then
.ListRows(Zeile).Delete
End If
End With
End Sub
Sub LoeschenBisZeile10()
'Löscht Zeilen am Ende der Liste, wenn Status "IN", 10 Zeilen bleiben stehen.
Dim Zeile As Long, wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Übersicht")
With wks.ListObjects(1)
Zeile = .ListRows.Count
Do While Zeile > 10
If .DataBodyRange.Cells(Zeile, 5) = wks.Range("Status_IN").Value Then Exit Do
.ListRows(Zeile).Delete
Zeile = Zeile - 1
Loop
End With
End Sub
Sub LoeschenOUT_Alt()
'Löscht Zeilen, die länger als 7 Tage nicht den Status "IN" haben
Dim Zeile As Long, wks As Worksheet
Set wks = ActiveWorkbook.Worksheets("Übersicht")
With wks.ListObjects(1)
Zeile = .ListRows.Count
For Zeile = Zeile To 1 Step -1
If .DataBodyRange.Cells(Zeile, 5)  wks.Range("Status_IN").Value Then
If .DataBodyRange.Cells(Zeile, 7)

Beliebteste Forumthreads (12 Monate)

Aus- und Einchecken von Tabellenblättern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus- und Einchecken von Tabellenblättern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread