Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Microsoft Microsoft Office

Mitglied: astronomy

astronomy (Level 1) - Jetzt verbinden

08.02.2007, aktualisiert 10:51 Uhr, 15340 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
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

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

Frage von packmann2016 zum Thema Microsoft Office ...

VB for Applications
VBA - Welchen Inhalt hat eine Zelle die mit der Taste Enft geleert wird? (3)

Frage von Juckie zum Thema VB for Applications ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...