Office: Mit Checkbox verschiedene Zellen Löschen und die anderen beschriebenen Zellen nach oben schieben

Hallo zusammen
Ich bin ein Greenhorn mit dem Excel. Deswegen müsste ich eine Anleitung erhalten für Dummies. Ich weis es gibt diverse solche anfragen aber das übersteigt mein Excel wissen. Ich habe das Microsoft Office 365

Ich muss eine Tabelle erstellen, mit einer Checkbox. Wenn ich den Hacken in der Box setze, müsste das passieren:
- Zellen in der gleichen reihe löschen
- Die restlichen reihen die unterhalb der gelöschten Zellen sind, müssten sich nach oben verschieben, ohne dass die Checkboxen den Befehl verlieren und diese sich auch löschen (wie eine endlosschleife).

Hoffe ich habe es ausführlich genug formuliert, wenn nicht, beantworte ich gerne eure Fragen.
Für euere Hilfe danke ich euch bestens.

Grüsse aus der Schweiz

 

Du willst als 1.048.576 Checkboxen in die Datei machen, davon würde ich abraten. Mit jeder gelöschten müssten am Ende ja neue erstelt werden.

 

die Entwicklertools im Menü einblenden. Eine Checkbox einfügen( Activex-Steuerlement, nicht Formularsteuerelement)
Entwurfsmodus button im Menü anklicken. rechte maustaste auf checkbox. Code anzeigen.

Private Sub CheckBox1_Click()

If CheckBox1 Then
With CheckBox1.TopLeftCell.Resize(Cells(Rows.Count, 1).End(xlUp).Row - CheckBox1.TopLeftCell.Row + 1)
.EntireRow.Delete shift:=xlUp
End With
End If

End Sub

 

Hi,

ich würde keine Checkboxen verwenden sondern einfach das Doppelklick-Ereignis des Tabellenblattes. Man kann das auch noch auf deine bestimmte Spalte begrenzen - im Beispiel Spalte E (5):

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 5 Then
        Target.EntireRow.Delete
        Cancel = True
    End If
End Sub

---

 

Danke für eure Hilfe.
@Beverly Ich habe deine Idee ausprobiert und habe sie auch zum funktionieren gebrach, nur löscht es die Zeile und fügt sich nicht wieder unten an, oder habe was falsch gemacht?
@ralf_b Ich bringe deinen Code nicht zum laufen, muss ich noch irgend welche Zeilennummern und Spalten Buchstaben einsetzen?

 

Was verstehst du unter "fügt sich nicht wieder unten an"? Du hast geschrieben: "Die restlichen reihen die unterhalb der gelöschten Zellen sind, müssten sich nach oben verschieben" - genau das macht mein Code und da steht nichts von irgendetwas unten anfügen.

---

 

@Beverly ja das stimmt Entschuldigung, ganz oben habe ich wohl einen Teil ausgelassen. Es müsste so sein, dass man immer wieder unten rein schreiben kann, ohne dass immer wieder neue Umrandungen gemacht werden müssen. Deswegen habe ich die endlosschleife erwähnt. Ist das überhaupt möglich?

 

Benutze eine formatierte (intelligente) Tabelle - sobald in der Zeile nach der letzten belegten Zeile etwas eingetragen wird ergäntzt sich die Formatierung (Rahmen und Farbe) automatisch.

---

 

Ich weis nicht was ich falsch mache. Es funktioniert nicht. Wie oben erwähnt, funktioniert dass doppelklicken und die Zeile verschwindet. Nur bringe ich es einfach nicht hin, dass es endlos ist. Das heisst zuunterst der Tabelle kommen die Zeilen hoch die kein Rahmen haben. Und die Grösse stimmt dann auch nicht. Ich habe im Onkel Google gesucht aber nichts brauchbares gefunden, dass mir geholfen hätte.
Ich versuche noch einmal so ausführlich zu erzählen was ich brauche wie möglich:

- Der Kunde Bestellt bei uns die Ware
- Wir machen diese Bereit und versenden diese und da kommt diese Liste ins Spiel. Wir Tragen die Ware ein mit dem Datum des Liefertags
- Der Kunde bekommt die Ware und müsste uns eine Rückmeldung machen. Dies kann sich aber immer ein bisschen hinziehen und der Kunde erhaltet die Ware nicht immer gleich wie der andere
- Bei Rückmeldung löschen wir den Kunden auf dieser Liste und die anderen müssten dann nach oben verschoben werden. Deswegen sollte dies Endlos funktionieren, dass wir nicht immer die Liste reparieren müssen wenn wir wieder eine Zeile löschen.

Wir machen dies jetzt so, dass wir den Zelleninhalt löschen und manuell nach Datum sortieren. So, dass die alten Bestellungen immer oben sind. Es funktioniert gut aber praktisch ist es nicht.

Ich danke euch vielmals für euere Hilfe.

LG Paedeli

 

Das ist doch logisch: wenn du Zeilen komplett löschst rücken die darunter liegenden nach oben. Wenn du dagegen nur die Inhalte löschst, bleiben Leerzeilen.
Verstehe ich das richtig: unterhalb der Tabelle gibt es noch weitere gefüllte Zeilen und die Tabelle mit den Kundendaten soll quasi immer dieselbe Länge haben, wobei die gefüllten Zeilen zuoberst stehen? Benutze also eine intelligente Tabelle, dann wird mit folgendem Code die betreffende Zeile komplett gelöscht und unten eine neue Zeile eingefügt, sodass die Zeilenanzahl immer gleich bleibt:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lngZeile As Long
    If Target.Column = 5 Then
        lngZeile = Target.Row - ActiveSheet.ListObjects(1).HeaderRowRange.Row
        ActiveSheet.ListObjects(1).ListRows(lngZeile).Delete
        ActiveSheet.ListObjects(1).ListRows.Add alwaysinsert:=True
        Cancel = True
    End If
End Sub

---

 

Hallo Beverly

Wenn ich den Code so eingebe, erhalte ich beim Doppelklick die Meldung zum Debuggen und wenn ich Debuggen drücke, kommt dies:

 

Hi,

und was sagt der Debugger genau? Also nicht nur die Fehlernummer sondern auch den Text, den er ausgibt.

---

 

Das Fenster, dass auf geht sieht so aus:

 

Die Excel sieht in etwa so aus. Leider habe ich das Original im Geschäft und kann es nicht 1 zu 1 geben.
Die Spalten sind korrekt aber die Zeilennummern sind nicht richtig, vielleicht ist es ein bis zwei Zeilen weiter oben oder unten. Wenn das wichtig ist.

 

Solch eine Fehlermeldung tritt immer dann auf, wenn das angesprochene Objekt nicht vorhanden ist. Ich hatte doch folgendes geschrieben:

Da du dies nicht gemacht hast, kommt logischerweise diese Fehlermeldung, denn die intelligente Tabelle wird nicht gefunden.

Und noch etwas: benenne bitte künftig eine hochgeladene Mappe so, dass man aus dem Namen in etwa entnehmen kann, um was für ein Problem es sich handelt und nicht einfach Mappe, Beispiel, Test o.ä. nichtssagend. Themenbezogene Namen machen es den Helfern leichter, eine Mappe einem bestimmten Thread zuzuordnen, denn sie antworten oft gleichzeitig in mehreren Threads.

---