Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen mit Code

Forumthread: Löschen mit Code

Löschen mit Code
08.07.2023 10:27:40
Volker

Hallo Gemeinde
ich habe diesen Code mit dem man Farben Löschen kann. Was muss ich daran ändern damit ich Daten Löschen kann.
Mfg Volker

Sub Termine_Löschen()

Dim Wert As String
'Wert = "TestWert"
If MsgBox("Willst du wirlich alle Termine Löschen ???", vbCritical + vbYesNo) = vbNo Then
'MsgBox "Abbruch", vbOKOnly
Exit Sub
Else
'MsgBox "Hier geht es weiter", vbOKOnly
End If
Range("D3:E33,I3:J33,N3:O33,S3:T33,X3:Y33,AC3:AD33,AH3:AI33,AM3:AN33,AR3:AS33,AW3:AX33,BB3:BC33,BG3:BH33").Select
Range("D3").Activate
Selection.Interior.ColorIndex = xlNone
Range("A1").Select

End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen mit Code
08.07.2023 10:40:09
onur
Statt
Selection.Interior.ColorIndex = xlNone
das
Selection.Clearcontents


AW: Löschen mit Code
08.07.2023 10:44:44
GerdL
Moin Volker
Sub Termine_Löschen()

    Dim Bereiche As Range
    
    If MsgBox("Willst du wirlich alle Termine Löschen ???", vbCritical + vbYesNo) = vbNo Then
        'MsgBox "Abbruch", vbOKOnly
        Exit Sub
    End If
    
    'MsgBox "Hier geht es weiter", vbOKOnly
    Set Bereiche = Range("D3:E33,I3:J33,N3:O33,S3:T33,X3:Y33,AC3:AD33,AH3:AI33,AM3:AN33,AR3:AS33,AW3:AX33,BB3:BC33,BG3:BH33")
    Bereiche.Interior.ColorIndex = xlNone 'Farbe raus
    Bereiche.ClearContents 'Inhalte raus
    Range("A1").Select
    Set Bereiche = Nothing 'Rangevariable zurücksetzen

End Sub
Gruß Gerd


Anzeige
AW: Löschen mit Code
08.07.2023 11:59:04
Micha
Vielen dank für die schnelle Hilfe.
Mfg Volker


AW: Löschen mit Code
08.07.2023 11:08:28
RPP63
Moin!
Als Alternative:
Dim i&
For i = 4 To 59 Step 5
  Cells(3, i).Resize(1, 2).ClearContents
Next
Gruß Ralf


Anzeige
AW: Löschen mit Code
08.07.2023 11:52:24
snb
oder vielleicht:
Range("D3:BH33").specialcells(2).clearcontents

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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