Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

löschen von Wert 0 in allen Zellen

löschen von Wert 0 in allen Zellen
22.04.2016 10:44:34
Christian

Hallo,
ich habe ein in einer Tabelle importierte Daten, bei denen sehr viele Zellen den Wert 0 haben. Diese würde ich gerne innerhalb des Importes löschen/leeren. Aktuell verwende ich dafür folgenden code:

For Each rng In Range("G2:K20000")
If rng.Value = "0" Then rng.ClearContents
Next
Nur leider dauert dieser Abschnitt echt lange. Gibt es da eine komfortablere und vor allem schnellere Lösung für?
Gesamter Code aktuell (ist noch in der Beta-Phase):
Private Sub cmd_import_Click()
Dim rng As Range
Dim pfad As String
Dim pfadlaenge As Integer
Dim datei As String
Dim dateilaenge As Integer
Dim blatt As String
Dim i As Double
'MsgBox ("Rohdaten " & vbCrLf & "in das Tool importiert!")
Application.ScreenUpdating = False
blatt = "Tabelle1"
'Application.FileDialog(msoFileDialogOpen).Show
'pfad = Application.FileDialog(msoFileDialogOpen)
'Application.FileDialog(msoFileDialogFilePicker).Show
'datei = Application.FileDialog(msoFileDialogFilePicker).
pfad = Application.GetOpenFilename("Excel (*.xls), *.xls")
pfadlaenge = Len(pfad)
datei = Right(pfad, InStr(1, StrReverse(pfad), "\") - 1)
dateilaenge = Len(datei)
pfad = Left(pfad, pfadlaenge - dateilaenge)
ActiveSheet.Range("A2:K20000").Select
Selection.Delete
Call Hole_Daten("A2:A20000", "='" & pfad & "[" & datei & "]" & blatt & "'!A2:A20000")
Call Hole_Daten("B2:B20000", "='" & pfad & "[" & datei & "]" & blatt & "'!B2:B20000")
Call Hole_Daten("C2:C20000", "='" & pfad & "[" & datei & "]" & blatt & "'!C2:C20000")
Call Hole_Daten("D2:D20000", "='" & pfad & "[" & datei & "]" & blatt & "'!D2:D20000")
Call Hole_Daten("E2:E20000", "='" & pfad & "[" & datei & "]" & blatt & "'!E2:E20000")
Call Hole_Daten("F2:F20000", "='" & pfad & "[" & datei & "]" & blatt & "'!F2:F20000")
Call Hole_Daten("G2:G20000", "='" & pfad & "[" & datei & "]" & blatt & "'!G2:G20000")
Call Hole_Daten("H2:H20000", "='" & pfad & "[" & datei & "]" & blatt & "'!H2:H20000")
Call Hole_Daten("I2:I20000", "='" & pfad & "[" & datei & "]" & blatt & "'!I2:I20000")
Call Hole_Daten("J2:J20000", "='" & pfad & "[" & datei & "]" & blatt & "'!J2:J20000")
Call Hole_Daten("K2:K20000", "='" & pfad & "[" & datei & "]" & blatt & "'!K2:K20000")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = 0 Then
Rows("" & i & ":1048576").Delete
Exit For
End If
Next
On Error Resume Next
For Each rng In Range("G2:K20000")
If rng.Value = "0" Then rng.ClearContents
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: löschen von Wert 0 in allen Zellen
22.04.2016 10:49:23
Daniel
Hi
Range(G2:K20000).Replace 0, "", xlwhole
gruß Daniel

AW: löschen von Wert 0 in allen Zellen
22.04.2016 11:12:14
Christian
Perfekt,
Danke!!!

Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige