Top-Themen

Aktuelle Themen (A bis Z)

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

Zellen mit bestimmten Inhalt löschen

Mitglied: astronomy

astronomy (Level 1) - Jetzt verbinden

08.02.2007, aktualisiert 10:51 Uhr, 16066 Aufrufe, 3 Kommentare

Guten Morgen,

Ich hab da ein Problem....ich habe eine Excel-Tabelle wo viele unterschiedliche Positionen aufgeführt sind...
zu den Positionen gehören dann noch Infos wie Preis, Datum, Menge usw.
Jetzt gibts es jedoch eine Position die 20 Mal vorkommt, aber belanglos für mich ist.
Jetzt hätte ich gerne ein Makro, das überprüft ob der Wert "Porto" in einer Zelle in der Spalte "J" steht und wenn ja, dann diese Zellen löschen oder von mir aus auch ausblenden kann.
Und wenn nein, dann halt nix^^

Und es MUSS ein Makro sein, also VBA halt!!

Wäre cool wenn da einer was wüsste!!

Grüße
Astronomy
Mitglied: wakko
08.02.2007 um 10:11 Uhr
Moin,
müßte etwa so laufen:
01.
Sub löschePorto() 
02.
Dim i% 
03.
i = 2 
04.
Do Until ActiveSheet.Range("J" & i) = "" 
05.
    If ActiveSheet.Range("J" & i).Value = "Porto" Then 
06.
        ActiveSheet.Rows(i).Delete 
07.
        i = i - 1 
08.
    End If 
09.
    i = i + 1 
10.
Loop 
11.
End Sub
Gehe davon aus, das in Spalte J ab Spalte 2 immer was drin steht, musste sonst einfach anpassen
MfG
Henrik
Bitte warten ..
Mitglied: bastla
08.02.2007 um 10:28 Uhr
Hallo Astronomy!

Der folgende Code beginnt bei Zeile 2 und läuft so lange, bis er auf die erste leere Zelle in Spalte "A" stößt:
01.
Sub PortoWeg() 
02.
Dim iZeile As Integer 
03.
iZeile = 2 
04.
Do While Cells(iZeile, "A") <> "" 
05.
    With Cells(iZeile, "J") 
06.
        If LCase(.Value) = "porto" Then 
07.
            .EntireRow.Hidden = True 
08.
            '.EntireRow.Delete: iZeile = iZeile - 1 
09.
        End If 
10.
    End With 
11.
iZeile = iZeile + 1 
12.
Loop 
13.
End Sub
Um die gefundenen "Porto"-Zeilen (nicht Zellen!) zu löschen, die Zeile ".EntireRow.Delete" verwenden (Apostroph entfernen).

Grüße
bastla

[Edit] @wakko - Sorry, hatte nicht noch mal reingeschaut ... [/Edit]
[Edit2] Korrektur der Zeilennummer beim Löschen hinzugefügt [/Edit2]
Bitte warten ..
Mitglied: astronomy
08.02.2007 um 10:51 Uhr
Ihr seid super....vielen, vielen Dank!!!
Genau so hab ich mir das gedacht!!!

Danke schön!!

Gruß Astronomy
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Wenn Inhalt Zelle X dann bestimmte Zellen

gelöst Frage von KnuefiMicrosoft Office2 Kommentare

Hallo zusammen, ich hoffe mir kann jemand weiterhelfen. Ich habe eine Excel Datei mit zwei Tabellen Blätter Tabelle1 Tabelle2 ...

VB for Applications

Excel - Wenn Zelle eine bestimmte Farbe hat, dann soll sie einen bestimmten Inhalt annehmen

gelöst Frage von C.Mue83VB for Applications4 Kommentare

Hallo zusammen, ich versuche mir gerade ein kleines Excel-Sheet zu basteln. Bin leider ein völliger Anfänger was VBA angeht. ...

Batch & Shell

Lösche Inhalt in bestimmten Unterordner wenn älter als

gelöst Frage von KnuefiBatch & Shell7 Kommentare

Hallo, ich benötige eure Hilfe. Ich habe unterstehendes Script, leider funktioniert es nicht. Es wird nichts gelöscht. Was habe ...

Microsoft Office

Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten

gelöst Frage von packmann2016Microsoft Office5 Kommentare

ich möchte mit Hilfe einem Makro Zellen die einen bestimmten Inhalt ("G" und "A") haben ausblenden. Versuchte mit dem ...

Neue Wissensbeiträge
Microsoft

Neuigkeiten zu Server und Office 365 was läuft mit was und was nicht

Tipp von AlFalcone vor 1 TagMicrosoft4 Kommentare

Da diese Infos scheinbar unerwünscht sind, habe ich diese wider gelöscht.

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 1 TagSpeicherkarten1 Kommentar

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 1 TagSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 2 TagenHardware2 Kommentare

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
EuGH-Urteil - Internetanschluss für die ganze Familie - Filesharer haften trotzdem
Frage von StefanKittelSicherheitsgrundlagen40 Kommentare

Hallo, In diesem Artikel geht es darum, dass Jemand aus der Familie ein Hörbuch illegal hochgeladen hat. Der Vater ...

Apple
MacBook Pro 2018 mit 8 GB oder 16 GB
Frage von SysAdm81Apple25 Kommentare

Hallo zusammen, ich steh vor der Überlegung mir ein MacBook Pro 13 (2018) zu kaufen. Bzgl. SSD habe ich ...

Off Topic
SysAdmin im öffentlichen Dienst - jemand Erfahrungen?
Frage von JohnDorianOff Topic19 Kommentare

Hallo zusammen, hat jemand Erfahrung wie es so ist als SysAdmin im öffentlichen Dienst (Landkreis) im Südwesten der Republik ...

TK-Netze & Geräte
Low budget TK-Anlage für KMU
Frage von HeinklugTK-Netze & Geräte16 Kommentare

Hallo Admins, ich bin auf der Suche nach eine kostengünstigen Telefonanlage für mein kleines Büro mit 4-5 Mitarbeitern. Dabei ...