Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Zellen innerhalb einer Range mit einem Inhalt unter einem bestimmten wert löschen

Frage Microsoft Microsoft Office

Mitglied: brotherkeeper

brotherkeeper (Level 1) - Jetzt verbinden

07.02.2012 um 10:38 Uhr, 2923 Aufrufe, 2 Kommentare

Leider bin ich nicht in der spannenden Position öfters zu scripten, daher bin ich immer, sobald ich es mal wieder muss, schwer eingerostet.

Folgende Situation:
In einer Tabelle die 3 Spalten und 2 Reihen hat sind folgen Werte eingetragen: A1: 85, B1:55, C1: 50, A2:45, B2:75, C2:60
Nun möchte ich in der Range A1:B2 alle Werte unter 60 automatisch löschen lassen (Spalte C möchte ich aber unberührt/ungeprüft lassen)

Wie kann ich das bewerkstelligen?

Mein gegenwärtiger Script:
Range("A1:B2").Select
Selection.Replace What:="<60", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
funktioniert logischerweise nicht weil dieser nur den genauen Wert <60 sucht... Was muss ich machen, daß er alle Werte kleiner 60 löscht?

Herzlichen Dank

B
Mitglied: bastla
07.02.2012 um 10:42 Uhr
Hallo brotherkeeper!

Da drängt sich eher eine Schleife auf - etwa:
01.
Sub KleineWerteEntfernen() 
02.
For Each Cell In Range("A1:B2").Cells 
03.
    If Cell.Value < 60 Then Cell.Value = "" 
04.
Next 
05.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: brotherkeeper
07.02.2012 um 13:35 Uhr
Sehr geil!!! Das ging aber rasant schnell... Funktioniert perfekt...

Eventuell eine Idee für meine neue Anfrage... ))

Herzlichen Dank

B
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Wie speichere ich von einer "Grundbatchdatei" einen bestimmten Wert? (5)

Frage von IchBins01000010 zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Batch & Shell
gelöst Löschen von Dateien nach bestimmten Zeitmuster (8)

Frage von NetzwerkDude zum Thema Batch & Shell ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Festplatten, SSD, Raid
PC stellt nach dem Bios ab (18)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

iOS
16 iPads zentrall verwalten (18)

Frage von simonlohr zum Thema iOS ...

Viren und Trojaner
Ransomware .nm4 (15)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...