Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1932to1936
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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


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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige