Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zellen ersetzen aber wie

zellen ersetzen aber wie
18.07.2006 22:46:00
aga
hallo an alle
wie kann ich folgenden code umändern das alle beschriebenen zellen in dem Bereich mit einer null ersetzt werden

Private Sub CommandButton3_Click()
letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Application.ScreenUpdating = False
Range("j2:l" & letzte_Zeile).Select
Selection.Replace what:=" ", replacement:="0", MatchCase:=True
Application.ScreenUpdating = True
End Sub

gruß
aga

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

Betreff
Datum
Anwender
Anzeige
AW: zellen ersetzen aber wie
18.07.2006 22:53:04
Erich
Hallo Aga,
wie wäres damit:
Option Explicit
Private Sub CommandButton3_Click()
Dim letzte_Zeile As Long
letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("j2:l" & letzte_Zeile) = 0
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: zellen ersetzen aber wie
18.07.2006 22:55:33
Kurt

Private Sub CommandButton3_Click()
letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Application.ScreenUpdating = False
Range("j2:l" & letzte_Zeile).Replace what:="*", replacement:=0
Application.ScreenUpdating = True
End Sub

mfg Kurt
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige