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, 2912 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Exchange Server
Inhalt von Postfächern in Exchange löschen (9)

Frage von m.reeger zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (27)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (20)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...