VBA-Clear.Contents best. Zellinhalte nicht löschen

Hallo zusammen:-)
Ich bin auf den Fall gestossen, das in dieser Mappe (https://www.herber.de/bbs/user/94544.xlsm) im laufenden Monat zwar Leistungen erbracht/Artikel verkauft wurden, die Rechnung dafür aber nicht im selben Monat, sondern erst nach Abschluss eines Auftrages versendet werden soll. Bislang wurde die gesamte Mappe immer unter dem Namen des neuen Monats gespeichert und dann via Button/Makro die Inhalte gelöscht. Dann gings von Neuem los. Jetzt müsst ich das Makro so anpassen, das ich gewissermassen eine Auswahlbox angezeigt bekomme, welche Kunden (sortiert nach Kunden-Kürzel) NICHT aus der Liste gelöscht werden sollen. Alle anderen Eintragungen sollen wie gewöhnlich entfernt werden.
Hat jemand eine Idee dazu? Oder vielleicht eine Datei, wo sowas in der Art schon mal umgesetzt wurde? Oft genug hab ich lediglich eine "Denk-Blockade" und komm einfach nur nicht auf den richtigen Ansatz ;-)
Merci im Voraus und frohe Weihnachten euch allen :-)
LG
Debian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Debian,
Die Function "Quicksort" hab ich irgendwann mal aus einem Forumsbetrag kopiert.
Bei einem 1-dimensionalen Datenarray stellt sich halt die Frage: befinden sich die Elemente in einer Zeile nebeneinander oder in einer Spalte untereinander. Für die
Der Autor hatte wohl die Vision, dass die Elemente nebeneinander angeordnet sind, und den Variablen die Namen

links = Nummer des 1. Elements der Liste ab dem sortiert werden soll

rechts = Nummer des letzten Elements der Liste bis zu dem sortiert werden soll

verpasst.
Verständlicher wären wohl Nr_Start und Nr_Ende oder ähnlich gewesen.
Ansonsten ist diese Function dadurch relativ schwierig nachzuvollziehen, weil sich diese Function mehrfach selber wieder aufruft, um die Elemente umzupositionieren und am Ende die Liste in sortierter Reihenfolge zu haben.
Zum Löschen der Rechnungsblättern nach einem Monatswechsel musst du dein Leeren-Makro wie folgt ergänzen:

Sub ClearVerkaufFortlaufend()
Dim objSheet As Object
UF_Leeren_Verkauf.Show
If UF_Leeren_Verkauf.Tag = "Leeren" Then
Call SchutzAus
Worksheets("DebitorenListe").Range("A9:F100").ClearContents
'Rechnungsblätter löschen
For Each objSheet In ActiveWorkbook.Sheets
Select Case objSheet.Name
Case "Wegleitung", "Kundenstammdaten", "Verkauf fortlaufend", _
"Rechnungsformular", "DebitorenListe"
'Dies Blätter nicht löschen
Case Else
Application.DisplayAlerts = False
objSheet.Delete
Application.DisplayAlerts = True
End Select
Next
Call SchutzEin
End If
Unload UF_Leeren_Verkauf
End Sub

Gruß
Franz

Sub ClearVerkaufFortlaufend() Dim objSheet As Object Call SchutzAus UF_Leeren_Verkauf.Show If UF_Leeren_Verkauf.Tag = "Leeren" Then Worksheets("DebitorenListe").Range("A9:F100").ClearContents 'Rechnungsblätter löschen For Each objSheet In ActiveWorkbook.Sheets Select Case objSheet.Name Case "Wegleitung", "Kundenstammdaten", "Verkauf fortlaufend", _ "Rechnungsformular", "DebitorenListe" 'Dies Blätter nicht löschen Case Else Application.DisplayAlerts = False objSheet.Delete Application.DisplayAlerts = True End Select Next End If Call SchutzEin Unload UF_Leeren_Verkauf End Sub

Beliebteste Forumthreads (12 Monate)

VBA-Clear.Contents best. Zellinhalte nicht löschen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Clear.Contents best. Zellinhalte nicht löschen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread