Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

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

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

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige