Listbox-Einträge löschen und Rest nach oben

Hallo zusammen,
folgendes Problem würde ich gerne lösen:
Ich habe eine Tabelle mit 60 Zeilen und 10 Spalten. Die Zeilen werden über verschiedene Userformen gefüllt. 7 Spalten (weisse Spalten / s. Anlage) werden über die Userform gefüllt. In den anderen 3 Spalten liegen Formel, die die Eingaben weiter berechnen.
Es gibt eine Korrektur-Userform (siehe Anlage), die eine Listbox enthält, in der die 60 einzelnen Eingaben angezeigt und korrigiert werden können. Die Korrektur erfolgt dann in den einzelnen Text- und Comboboxen. Bis hier hin läuft alles sehr flüssig und gut.
Jetzt möchte ich gerne einen weiteren Command-Button in der Korrektur-Userform hinzufügen mit dem Namen "Ausgewählte Eingabe löschen". Es soll die ausgewählte laufend Nummer lt. Listbox nicht komplett rausgelöscht werden (Zeile löschen), sondern es sollen nur die 7 getätigten Eingaben in den Userformen (siehe oben) gelöscht werden. Die darunter liegenden Eingaben sollen dann nach oben verschoben werden, so dass die 3 Spalten mit den Formeln nicht angesprochen werden. Der Befehl Zeile löschen scheidet daher aus.
Zusammenfassung:
Wie kann ich aus einer Zeile einzelne Zellen löschen und die darunter liegenden Zellen eine Zelle nach oben verschieben?
Ich hoffe, ich konnte es halbwegs vernünftig erklären :-))))
Anbei eine Bespielsdatei. Die komplette Datei kann und darf ich leider nicht hochladen.
Ich hoffe, jemand kann mir weiterhelfen.
Danke und viele Grüße
Simy
https://www.herber.de/bbs/user/124043.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Simy,
wenn die beigefügte Datei nicht der entspricht, die Du ändern willst, ist das schwierig. Abgesehen davon, dass man das Formular nicht sieht (das Bild davon zeigt mir z. B. nicht wie die Listbox heißt), schreibst Du z.B, dass Du, dass Du z. B. die Zelle B1 löschen willst. In Deiner Datei beginnen die Daten aber erst in der 5. Zeile.
Ausgehend von Deiner eingestellten Datei und von folgenden Annahmen:
1. Die lfd. Nr.in der Listbox entspricht der Nr. des Datensatzes. Bei Auswahl von 1 in der Listbox, willst Du also die Zelle B5 (weil erste Zeile im Datenbereich) löschen.
2. Das Lisbox-Element in DeinemFormular heißt Listbox1
3. Der einzufügende Button heißt CommandButton1
Bei Auswahl von z. B. 2 in der Listbox soll die Zelle B6 gelöscht werden (weil 2. Eintrag im Datenbereich). Folgender Code hinter dem Button kopiert dann den Bereich B7 bis zum Ende der Daten in der Spalte B (+ 1 Zeile) und fügt diesen Bereich eine Zelle höher (also ab B6) wieder ein. Somit ist die Zelle B6 gelöscht und der Rest eine Zeile höher wieder eingefügt, ohne die Formeln anzutasten.

Private Sub CommandButton1_Click()
Dim lVon As Long, lBis As Long
lVon = 5 + Me.ListBox1
With Sheets("Eingabemaske")
lBis = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & lVon & ":B" & lBis).Copy .Range("B" & lVon - 1)
End With
End Sub

Gruß
Robert

Beliebteste Forumthreads (12 Monate)

Listbox-Einträge löschen und Rest nach oben

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox-Einträge löschen und Rest nach oben

3 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)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread