Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich nur Zahlen löschen und Toto Schein ?

Bereich nur Zahlen löschen und Toto Schein ?
04.04.2015 10:43:56
Walter
Guten Tag zusammen,
erst mal ALLEN ein frohes, schönes Osterfest mit besseres Wetter !
Ich möchte in einem bestimmten Bereich nur die Zahlen löschen also
KEINE Buchstaben.
Z.B. A3:Z50
2. Frage:
Hat vielleicht jemand eine Excel Datei für das AUSFÜLLEN eines
Toto-Scheins ?
mfg walter wb

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich nur Zahlen löschen und Toto Schein ?
04.04.2015 11:33:30
Werner
Hallo Walter,
versuch mal das hier. Code in ein Modul. Eine Schaltfläche auf das Tabellenblatt und der Schaltfläche das Makro zuweisen.
Option Explicit
Public Sub zahlen_löschen()
Dim WS As Worksheet
Dim raBereich As Range
Dim raZelle As Range
Application.ScreenUpdating = False
Set WS = Sheets(1) 'Tabellenblatt anpassen
Set raBereich = WS.Range("A1:B8") 'Bereich anpassen
For Each raZelle In raBereich
If IsNumeric(raZelle) Then raZelle.ClearContents
Next raZelle
Application.ScreenUpdating = True
End Sub
Gruß Werner

Werner das Makro klappt ! Jetzt noch...
04.04.2015 11:48:42
Walter
Hallo Werner,
einwandfrei !
Danke !
Jetzt bin ich mal gespannt ob jemand noch ein Toto Schein hat ?
gruß
walter mb

Anzeige
AW: Danke für die Rückmeldung owT
04.04.2015 21:14:21
Werner

AW: Bereich nur Zahlen löschen
04.04.2015 11:54:29
Gerd
Hallo Walter!
Sub Zahlen_entfernen()
Range("A3:Z50").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub
Gruß Gerd

Herzlichen Dank WF und Gerd !
04.04.2015 12:41:09
Walter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige