VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Text in Zahl mit führender 0 filtern	25.01.2022 12:07:34	Kenneth
Text in Zahl mit führender 0 filtern	25.01.2022 13:11:48	volti
Text in Zahl mit führender 0 filtern	25.01.2022 13:14:39	Mase
Text in Zahl mit führender 0 filtern	25.01.2022 16:04:39	Ben
Text in Zahl mit führender 0 filtern	25.01.2022 20:55:44	Kenneth
Text in Zahl mit führender 0 filtern	25.01.2022 22:04:22	volti

Ansicht des Beitrags:

Von:
volti

Datum:
25.01.2022 13:11:48

Views:
853

Rating:

Antwort:

Thema:
Text in Zahl mit führender 0 filtern

Hallo Kenneth,

leider ist mir Dein Anliegen nicht ganz klar.

Hast Du einen einspaltigen Datenbereich und willst dort alle Zeilen, in denen eine Zahl>9999 steht löschen=entfernen?

Oder hast Du mehrere Spalten und willst dort Zahlen>9999 löschen=Feld leeren?

Code:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Sub Zeilen_Loeschen1()
' Langsam
  Dim i As Long

  Application.ScreenUpdating = False
  For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
      If Val(Cells(i, "A").Value) > 9999 Then
         Cells(i, "A").EntireRow.Delete
      End If
  Next i
  Application.ScreenUpdating = True
End Sub

Sub Zeilen_Loeschen2()
' Schnell
  Dim i As Long, iMax As Long

  iMax = Cells(Rows.Count, "A").End(xlUp).Row
  For i = 1 To iMax
      If Val(Cells(i, "A").Value) > 9999 Then Cells(i, "A").Value = "@Lösch"
  Next i
  Columns("A:A").AutoFilter
  Range("$A$1:$A$" & iMax).AutoFilter Field:=1, Criteria1:="=@Lösch", Operator:=xlAnd
  Range("$A$2:$A$" & iMax).EntireRow.Delete Shift:=xlUp
  Columns("A:A").AutoFilter
End Sub

_________
viele Grüße
Karl-Heinz

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Text in Zahl mit führender 0 filtern	25.01.2022 12:07:34	Kenneth
Text in Zahl mit führender 0 filtern	25.01.2022 13:11:48	volti
Text in Zahl mit führender 0 filtern	25.01.2022 13:14:39	Mase
Text in Zahl mit führender 0 filtern	25.01.2022 16:04:39	Ben
Text in Zahl mit führender 0 filtern	25.01.2022 20:55:44	Kenneth
Text in Zahl mit führender 0 filtern	25.01.2022 22:04:22	volti