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
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, 24582 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
VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
gelöst Excel: Wert aus mehreren Zeilen vergleichen (2)

Frage von Nicolaas zum Thema Microsoft Office ...

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 ...

Windows Installation
Windows 10 neu installieren (9)

Frage von imebro zum Thema Windows Installation ...