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
Kommentar vom Moderator Biber am 12.08.2009 um 10:13:57 Uhr
Code-Tags im Beitrag und im Lösungs-Kommentar gesetzt und Beitrag von "Entwicklung" nach "Excel" verschoben.
GELÖST

VBA Zellen vergleichen und bei gleichen Werten Zeile farbig markieren

Frage Microsoft Microsoft Office

Mitglied: Gladmin

Gladmin (Level 1) - Jetzt verbinden

12.08.2009, aktualisiert 10:13 Uhr, 24837 Aufrufe, 1 Kommentar

Hallo, ich habe folgendes Makro geschrieben. Hatte es leicht abgeändert an anderer Stelle laufen, dort funktioniert es einwandfrei (siehe unten).
Es soll zwei Zellen vergleichen (Spalte 1 und Spalte 18) und bei gleichen Werten soll er die gesamte Zeile blau einfärben.
Er färbt mir aber nur die erste nicht benutzte Zeile ein, obwohl einige Werte in der Tabelle übereinstimmen.
01.
Public Sub Doppelt_loeschen() 
02.
 
03.
Dim lngLetzte As Long 
04.
Dim lngZeile As Long 
05.
Dim wksA As Worksheet 
06.
Set wksA = Worksheets("Kunden") 
07.
 
08.
Application.ScreenUpdating = False 
09.
lngLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536) 
10.
  For lngZeile = lngLetzte To 1 Step -1 
11.
    If wksA.Cells(lngZeile, 18) = wksA.Cells(lngZeile, 1) Then 
12.
      wksA.Cells(lngZeile, 18).EntireRow.Interior.ColorIndex = 33 
13.
    End If 
14.
  Next 
15.
Application.ScreenUpdating = True 
16.
 
17.
End Sub 
18.
 
19.
Hat jemand eine Idee? 
20.
 
21.
Mein Anderes Makro, dass funktioniert sieht so aus. Hier shaut er in die Spalte 15, wenn keine werte eingetragen sind löscht er die gesamte Zeile. 
22.
 
23.
Public Sub NULL_ers2() 
24.
 
25.
Dim lngLetzte As Long 
26.
Dim lngZeile As Long 
27.
Application.ScreenUpdating = False 
28.
lngLetzte = IIf(IsEmpty(Range("O65536")), Range("O65536").End(xlUp).Row + 1, 65536) 
29.
  For lngZeile = lngLetzte To 1 Step -1 
30.
    If Cells(lngZeile, 15) = "" Then 
31.
      Cells(lngZeile, 15).EntireRow.Delete 
32.
    End If 
33.
  Next 
34.
Application.ScreenUpdating = True 
35.
 
36.
End Sub
Mitglied: Gladmin
12.08.2009 um 10:07 Uhr
Habe es gerade selber hin bekommen. Hier die Lösung:
("text" hat gefehlt) erkennt wohl den Inhalt der Zellen nicht richtig.

01.
Public Sub Doppelt_loeschen() 
02.
 
03.
Dim lngLetzte As Long 
04.
Dim lngZeile As Long 
05.
Dim wksA As Worksheet 
06.
Set wksA = Worksheets("Kunden") 
07.
 
08.
Application.ScreenUpdating = False 
09.
lngLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536) 
10.
For lngZeile = lngLetzte To 1 Step -1 
11.
If wksA.Cells(lngZeile, 18) .text= wksA.Cells(lngZeile, 1).text Then 
12.
wksA.Cells(lngZeile, 18).EntireRow.Interior.ColorIndex = 33 
13.
End If 
14.
Next 
15.
Application.ScreenUpdating = True 
16.
 
17.
End Sub
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
VBA Zellen markieren bis Inhalt sich ändert
gelöst Frage von charlybyMicrosoft Office3 Kommentare

stelle mich mal wieder blöd an. Das Problem: es besteht eine Tabelle mit Nummern in der Spalte 1. Die ...

VB for Applications
Zeilen zusammenfassen wenn eine der Zellen gleich ist
Frage von Benni5555VB for Applications2 Kommentare

Hallo zusammen, ich suche nach einer Lösung für mein Problem und bin "fast" fündig geworden. Mein Problem sieht wie ...

Batch & Shell
Werte vergleichen die nicht 100 Prozent gleich sind
Frage von functionstrutBatch & Shell4 Kommentare

Hallo, gibt es eine Möglichkeit Ordnernamen oder einfach generell Texte oder Werte zu vergleichen auch wenn sie nicht 100%ig ...

Microsoft Office
Excel: Wert aus mehreren Zeilen vergleichen
gelöst Frage von NicolaasMicrosoft Office2 Kommentare

Hallo zusammen, ich würde mir gerne eine Auswertung mit Excel erstellen. Ich habe leider gerade keine Idee mit welcher ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 10 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 15 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 15 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
SMBv1 deaktivieren führte zur Katastrophe, keine Domänenanmeldung mehr
Frage von Freak-On-SiliconWindows Server14 Kommentare

Servus; Habe Mist gebaut. Umgebung: Server 2012R2 Domäne 2x DC ~10 Memberserver (2012R2 und 2008R2) ~100 Windows 8 Clients ...

Windows XP
Windows XP Aktivieren geht nicht
Frage von tetikmiroWindows XP13 Kommentare

Hallo Ich habe einen Windows XP mit einen vCenter Converter umgezogen auf eine ESXI. Soweit funktioniert dies auch ohne ...

Grafikkarten & Monitore
2x 4K Monitore an einer GraKa betreiben
gelöst Frage von JollyJumper83Grafikkarten & Monitore10 Kommentare

Hallo liebe IT-Gemeinde, ich bin auf der Suche nach einer kostengünstigen GraKa für meinen Präsentations-PC. Wir möchten in unserem ...