Office: Tabellenbereich löschen

LoganGr · 31. Oktober 2017

Hallo Ihr Lieben,
ich komme leider wieder nicht weiter.
Ich versuche den Inhalt einer Tabelle von einem Bestellformular per Knopfdruck zu löschen, um eine neue Bestellung zu beginnen.

Da das ganze eine Tabelle ist, die man auch per Knopfdruck vergrößern und verkleinern kann, ist eine "von bis" Abfrage von nöten. Sowas ist schon in dem Tabellenerweiterunsmakro schon enthalten.
Deswegen hab ich angefangen das Tabellen-erweiterungsmakros um zu schreiben.
Leider komm ich nicht weiter, da er ständig den Fehler "438 - Objekt unterstüzt Eigenschaft der Methode nicht" ausgibt.
Ich hab schon viel rum probiert und gegoogelt leider ohne Erfolg. *stupid

Ich hab mal eine Beispieldatei mit den drei Knöpfen in den Anhang gepackt vielleicht ist es ja einfacher als gedacht und ich steh einfach da, wie ein Ochse vorm Berg *sos

Vielen Dank im voraus
ganz liebe Grüße

Logan

:)

Hasso · 2. November 2017

Hallo Logan,

du solltest dir angewöhnen, im VBA-Editor die Option "Variablendeklaration erforderlich" anzuhaken (Menü Extras|Optionen). Für schon vorhandene Subs erreichst du das, indem du in die erste Zeile des Moduls "Option Explicit" schreibst. Dann wäre dir angezeigt worden, dass du im "Private Sub CommandButton3_Click()" die Variable "a" nicht deklariert hast.
Das Makro zum Zeilen löschen schreibst du besser so: Code:

Private Sub CommandButton2_Click()
Selection.Rows.EntireRow.Delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann bleiben auch die Rahmen an den richtigen Stellen.*biggrin.gif*

Ich hab den gesamten Code mal etwas vereinfacht: Code:

Option Explicit
'**************Zeile Hinzufügen**********
Private Sub CommandButton1_Click()

Dim rngZelle As Range
Set rngZelle = Columns(2).Find("GESAMTBESTELLWERT:", lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Rows(rngZelle.Row).Insert
Range(Cells(rngZelle.Row - 2, 2), Cells(rngZelle.Row - 2, 11)).Copy rngZelle.Offset(-1, 0)
rngZelle.Offset(-1, 0) = Application.Max(Columns(2)) + 1
End If
End Sub
'*************ausgewählte Zeile löschen***************

Private Sub CommandButton2_Click()
Selection.Rows.EntireRow.Delete
End Sub
'*************Inhalt löschen******************

Private Sub CommandButton3_Click()
Dim a As Integer
Dim lngErsteZeile As Long
Dim lngLetzteZeile As Long

a = MsgBox("Gesamte Tabelle wirklich löschen?", vbYesNo)

If a = vbNo Then Exit Sub

lngErsteZeile = Columns(2).Find("POS.", lookat:=xlWhole).Row + 1
lngLetzteZeile = Columns(2).Find("GESAMTBESTELLWERT:", lookat:=xlWhole).Row - 1
Range(Cells(lngErsteZeile, 2), Cells(lngLetzteZeile, 11)).ClearContents
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LoganGr · 2. November 2017

Hallo Hasso,
vielen vielen Dank für deine Mühe das passt perfekt!
Nicht nur mein Problem Gelöst sondern auch das vorhandene verbessert *boah
Deinen Rat werde ich mir definitiv zu Herzen nehmen. Ich bin noch nicht so erfahren im VBA.
Aber mit solchen Tipps und mit so einer Unterstützung, wie einem hier im Forum gegeben wird, wirds immer besser! Danke dafür! *Smilie
Ich hab im Code den lösch-Bereich ein wenig abgeändert, sonst löscht er mir die Positionsnummern und die Formeln. Ansonsten ist das ein Traum *knuddel
Nochmals vielen dank!

Ganz liebe Grüße

Logan

Hasso · 2. November 2017

Danke für die Rückmeldung!

Office: Tabellenbereich löschen

Tabellenbereich löschen

Tabellenbereich löschen

Tabellenbereich löschen

Tabellenbereich löschen - Similar Threads - Tabellenbereich löschen

Im Tabellenbereich Werte mit 2 Bedingungen Zählen

Drop Down mit Referenz auf Tabellenbereich

Tabellenbereich in einer Tabelle nacheinander einfügen

Tabellenbereich farbig markieren und daraus min-Wert bestimmen(VBA)

Min und Max aus bestimmten Tabellenbereichen

Tabellenbereich in Variable speichern VBA

VBA Worksheet_SelectionChange für einen bestimmten Tabellenbereich???