Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: per Button Zellen leeren / neue werte / vorher abf

per Button Zellen leeren / neue werte / vorher abf
19.02.2016 09:39:28
Annett
Hallo Liebe Gemeinde und Profis in Sachen VBA ;-))
Brauche mal wieder Eure Hilfe
Folgende Prozedur soll durch einen "Klick-Button" erfolgen:
die Zeilen 8 bis 27
sollen durch den Klick
Spalte A B D sowie F bis Q
geleert werden
Bevor diese geleert werden, soll vorher eine Msg-Box abfragen:
Soll alles geleert werden?
Ja Abbrechen
Bei Abbrechen soll alles so bleiben wie es ist.
Bei Ja sollen oben stehende Zellen geleert werden,
ABER ZUSÄTZLICH
in Spalte A, Zeile 8 bis 27
die Formel {=HEUTE()}
eingetragen werden.
Ist das machbar?
LG Annett

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Button Zellen leeren / neue werte / vorher abf
19.02.2016 09:51:00
otto
Hi,
so geht das:
Sub leeren()
MsgBox ("Soll alles geleert werden?"), vbOKCancel
If vbCancel= True Then
Exit Sub
Else
Range("A8:B27").ClearContents
Range("D8:D27").ClearContents
Range("F8:Q27").ClearContents
Range("A8").FormulaR1C1 = "=TODAY()"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A27"), Type:=xlFillDefault
End If
otto

Anzeige
AW: per Button Zellen leeren / neue werte / vorher abf
19.02.2016 11:01:47
Annett
Ach menno
irgendwie klappt es doch nicht.
bei OK wird alles geleert
jedoch bei Abbrechen wird auch alles geleert :-((

Private Sub CommandButtonLeeren_Click()
MsgBox ("Soll alles geleert werden?"), vbOKCancel
If vbCancel = True Then
Exit Sub
Else
Range("A8:B27").ClearContents
Range("D8:D27").ClearContents
Range("F8:Q27").ClearContents
Range("A8").FormulaR1C1 = "=TODAY()"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A27"), Type:=xlFillDefault
End If
End Sub

Anzeige
leider doch noch ein Fehler
19.02.2016 12:02:45
Annett
Habe mal den Betreff geändert damit man auch was damit anfangen kann.
irgendwie klappt es doch nicht.
bei OK wird alles geleert
jedoch bei Abbrechen wird auch alles geleert :-((

Private Sub CommandButtonLeeren_Click()
MsgBox ("Soll alles geleert werden?"), vbOKCancel
If vbCancel = True Then
Exit Sub
Else
Range("A8:B27").ClearContents
Range("D8:D27").ClearContents
Range("F8:Q27").ClearContents
Range("A8").FormulaR1C1 = "=TODAY()"
Range("A8").Select
Selection.AutoFill Destination:=Range("A8:A27"), Type:=xlFillDefault
End If
End Sub

Anzeige
benutze einen definierten Namen ...
19.02.2016 10:17:45
Matthias
Hallo
benutze einen definierten Namen ...
... sollte in der Betreffzeile stehen.
Da hatte ich vor dem absenden nicht gegengeprüft, sorry
In der gesendeten Datei gibt es einen definierten Namen.
Dieser wird im Code angesprochen
Gruß Matthias

Anzeige
AW: benutze einen definierten Namen ...
19.02.2016 10:39:50
Annett
Das hatte ich auch gesehen :-))
Habe alles angepaßt . . . UND . . . siehe da, es funktioniert *jubel*
Der Code ist nun wesentlich kleiner.
Hatte es erst mal selber probiert mit Makro aufzeichnen.
Da fehlte das mit der Box und der Code war sooooo was von Laaaang ;-)
Hab vielen lieben Dank für Deine schnelle Hilfe !!!!!!
LG Annett
und an Alle ein schönes WE
.

Anzeige
auch Dir ein schönes WE :-) owT
19.02.2016 10:41:06
Matthias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige