Office: (Office 2016) Eingaben in mehreren Spalten und Zeilen per Knopfdruck löschen

Hallo zusammen,

Ich habe einen Excel Kalkulater gebaut mit welchem man bestimmte Werte (tun hier nichts zur Sache) berechnen kann.
Nun ist es so, dass die beiden Tabellenblätter für die Berechnung viele Eingaben benötigen und diese über mehere Zeilen und Spalten hinweg.

Wenn man die Berechnung beendet hat, kommt auf der Ersten Seite der Wert raus.
Nun möchte man nicht beigehen und auf beiden Tabellenblätern die Werte wieder manuell löschen, hier wäre es viel schöner, wenn man auf dem ersten Tabellenblatt "Berechnung" einfach einen Button klicken könnte, der auf den Tabellenblättern "Daten 1" und "Daten 2" die Bereiche:
B2 - B41
C2 - C41
E2 - E41
F2 - F41
G2 - G41
J2 - J41
K2 - K41
L2 - L41
M2 - M41
N2 - N41
O2 - O41
Löscht.

Leider bin ich absolut unbrauchbar im Bereich VBA / Makro etc.

Vielleicht gibt es ja einen Spezi, der mir hier helfen kann.

Lieben Dank im voraus.

VG
RayKhe

 

Hi,

das kann man auch wunderbar ohne VBA mit der Funktion HYPERLINK erledigen:

=HYPERLINK("#'Daten 1'!B2:G41;J2:O41";"Eingaben in Daten 1 löschen")

Ein Klick markiert alle Eingabezellen - dann nur noch die Entf-Taste drücken.
Analog dann für das Blatt "Daten 2".

 

Hallo,

ein funktionierender Hyperlink zum Markieren mehrerer getrennter Bereiche im Arbeitsblatt "Daten 1", wie du sie vorgegeben hast; müsste so aussehen:
=HYPERLINK("#'Daten 1'!B2:C41;'Daten 1'!E2:G41;'Daten 1'!J2:O41";"Bereiche in 'Daten 1' markieren")

 

Danke für Eure Ansätze ohne VBA / Makro, gibt es hier ggf. jemanden der mir das mit Makro umsetzen könnte?
Lieben Dank hierfür.

 

Hallo Raykhe,

da kann man schon etwas machen, allerdings wäre es schön, eine Beispieldatei zu haben.

 

Hallo,

auf den blauen Button im Arbeitsblatt "Tabelle1" klicken und nachfolgendes Makro wird ausgeführt:

Code:

Sub BereicheLöschen()
  
    Worksheets("Daten 1").Range("B2:C41,E2:F41,J2:O41").ClearContents
    Worksheets("Daten 2").Range("B2:C41,E2:F41,J2:O41").ClearContents
  
End Sub

Datei liegt bei.

 

Hallo,

dazu brauchst du doch nur mit der rechten Maustaste auf deine Schaltfläche gehen, es öffnet sich ein Kontextmenü, dort wählst du "Makro zuweisen ...". Es öffnet sich eine Dialogbox, dort markierst du dein Makro und klickst auf OK, das ist alles.

 

Super vielen Dank, funktioniert einwandfrei!

 

Hi,

komplett ohne VBA:

• Einmalige Vorbereitung:
  • bei den Zellen, die gelöscht werden sollen, den Haken bei "Zellen formatieren" --> "Schutz" --> "Gesperrt" entfernen
  • Blattschutz in den beiden Blättern setzen
• Löschen der Zellen:
  • Blatt auswählen
  • Strg-A drücken oder auf das Feld zwischen Spalten- / Zeilenbezeichner klicken
  • Entf drücken

Eine funktionierende VBA-Lösung kannst du dir auch ganz leicht selbst basteln:

• Makrorekorder starten
• alle notwendigen Schritte händisch ausführen
• Makrorekorder stoppen
• Button erzeugen und diesem das aufgezeichnete Makro zuweisen