Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ungeschutzte Zellen Findenund Inhalt löschen

Ungeschutzte Zellen Findenund Inhalt löschen
08.06.2005 14:44:11
MichaelP
Guten Tag zusammen,
folgendes Problem möchte ich so einfach und schnell wie möglich lösen.
Ich habe ein Tabelle in der gewisse Zellen nicht geschützt sind.
Ich würde diese gerne finden und dann deren Inhalt löschen.
Danke für Eure Hilfe.
Gruß
Michael

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ungeschutzte Zellen Findenund Inhalt löschen
08.06.2005 15:15:51
Hajo_Zi
Hallo Michael,
schreibe Dir dies Beispiel von meiner HP um
Beispieldatei
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW: Ungeschutzte Zellen Findenund Inhalt löschen
08.06.2005 15:17:10
MichaelP
Hallo Meine Lösung lautet.

Sub Clear_Cells(intClearMonth As Integer)
'Loescht alle Werte der gewaehlten Spalte
'Variablendeklaration
Dim intClearStart As Integer
On Error Resume Next
'Durchsuchen des Tabellebblattes
For intClearStart = Planning.pos_zeile_daten_erste To Planning.pos_zeile_letzte
Planning.Cells(intClearStart, Get_Payment_Column(intClearMonth)).ClearContents
Next intClearStart
End Sub

funktioniert wie gewünscht. Aber leider kein so toller Programmierstiel.
Gruß
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige