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

wenn die Spalte B nicht gleich Spalte A ist, dass das Feld oder die Zahl in Spalte B rot erscheint

Frage Microsoft Microsoft Office

Mitglied: Entwickler

Entwickler (Level 1) - Jetzt verbinden

12.04.2007, aktualisiert 20.04.2007, 10329 Aufrufe, 9 Kommentare

Hallo,

und zwar habe ich ein Excel mit 2 Tabellen,

Tabelle A und Tabelle B

Zu 90% steht in Tabelle A das gleiche wie in Tabelle B sollte das aber nicht der Fall sein, sollte die Zahl in Tabelle B farbig makiert werden.
Kennt ihr da ne Excel Formel oder ein VB Script?^

bitte um antwort

mfg

alex
Mitglied: oblivionplanb
12.04.2007 um 11:06 Uhr
Abhilfe wird die bedingte Formatierung schaffen:

Infors dazu findest du hier: http://www.excel-inside.de/index.htm?/funktionen/207_sonstige/207002.ht ...
Bitte warten ..
Mitglied: bastla
12.04.2007 um 11:24 Uhr
Hallo Entwickler!

Sieht wie ein klassischer Fall für eine bedingte Formatierung aus, scheitert aber an der Beteiligung einer zweiten Tabelle, daher VBA:
01.
Sub Abgleich() 
02.
Const Vergleichstabelle As String = "Tabelle1" 
03.
For Each Zelle In Selection 
04.
    If Zelle.Value <> Worksheets(Vergleichstabelle).Cells(Zelle.Row, Zelle.Column).Value Then 
05.
        Zelle.Font.ColorIndex = 7 
06.
    End If 
07.
Next 
08.
End Sub
Aus Vereinfachungsgründen habe ich den Namen der Vergleichstabelle ("Tabelle1") fest verdrahtet - bitte einfach anpassen.

Das Progrämmchen vergleicht die Werte der markierten Zellen der einen Tabelle mit den gleichen Zelladressen der Vergleichstabelle und stellt die Schriftfarbe bei Ungleichheit auf "Magenta" (=7; für Rot zB 3 verwenden).

HTH
bastla
Bitte warten ..
Mitglied: Entwickler
12.04.2007 um 11:28 Uhr
Yep,

danke für die raschen antworten, werde dies gleich mal testen

lg
Bitte warten ..
Mitglied: bastla
12.04.2007 um 11:53 Uhr
... damit's mit der Farbauswahl einfacher wird:
01.
Sub FarbtabelleErstellen() 'als neues erstes Blatt der Mappe 
02.
Const FarbTab As String = "Farbtabelle" 
03.
Sheets(1).Select 
04.
Sheets.Add 
05.
ActiveSheet.Name = FarbTab 
06.
For i = 0 To 56 
07.
    Sheets(FarbTab).Cells(i + 1, 1).Value = i 
08.
    With Sheets(FarbTab).Cells(i + 1, 2) 
09.
        .Value = "Testtext" 
10.
        .Font.ColorIndex = i 
11.
    End With 
12.
Next 
13.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: Entwickler
20.04.2007 um 09:31 Uhr
Hi @ all.....

leider komm ich nicht klar, könnt ihr mir bitte einfach den genauen Text reinposten, was ich ins vb kopieren muss?
Tabellen sind A und B

danke

mfg
Bitte warten ..
Mitglied: bastla
20.04.2007 um 10:11 Uhr
Hallo Entwickler!

Eigentlich solltest Du die Version oben direkt verwenden können (bis auf den Tabellennamen), aber bitte:
01.
Sub Abgleich() 
02.
Const Vergleichstabelle As String = "A" 
03.
For Each Zelle In Selection 
04.
    If Zelle.Value <> Worksheets(Vergleichstabelle).Cells(Zelle.Row, Zelle.Column).Value Then 
05.
        Zelle.Font.ColorIndex = 3 
06.
    End If 
07.
Next 
08.
End Sub
Wenn Du jetzt in Tabelle "B" die zu überprüfenden Zellen (oder auch die gesamte Tabelle) markierst und dann das Makro startest, werden jeweils aus Tabelle "A" die Vergleichswerte herangezogen. Das andere Makro (für eine Farbtabelle) war eher Spielerei ...

Willst Du auf Nummer Sicher gehen, markierst Du die gesamte Tabelle "B" und verwendest statt
01.
Zelle.Font.ColorIndex = 3
besser
01.
Zelle.Interior.ColorIndex = 3
- durch das Einfärben des Hintergrundes erkennst Du auch Zellen, die in "B" leer sind, aber in "A" einen Inhalt haben.

Grüße
bastla

[Edit] Im Vergleich zur ursprünglichen Lösung Farbe auf "Rot", Farbwert 3, verändert, um zumindest damit dem Threadtitel gerecht zu werden. [/Edit]
Bitte warten ..
Mitglied: Entwickler
20.04.2007 um 10:14 Uhr
Hoi, das Problem is das ich nicht 2 Tabellen sondern 2 Spalten habe
Bitte warten ..
Mitglied: bastla
20.04.2007 um 10:21 Uhr
@Entwickler

Da ich dazu neige, der Beschreibung des Problems mehr zu glauben als dem Titel des Beitrages, war meine Lösung auf Tabellen ausgerichtet ...

Wenn es nur um Spalten innerhalb einer Tabelle geht, dann natürlich "Bedingte Formatierung", zB für B2: Zelle markieren, "Format/Bedingte Formatierung.../Bedingung1/Formel ist":
01.
=A2<>B2
und über "Format..." die gewünschte Formatierung vornehmen. Danach mit "Format übertragen" dieses Format allen anderen Zellen in der Spalte B zuweisen.

Grüße
bastla
Bitte warten ..
Mitglied: Entwickler
20.04.2007 um 10:29 Uhr
Problem gelöst danke

= WENN($A1 <> $B1; WAHR; FALSCH)
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Outlook & Mail
gelöst Outlook 2013 Von Feld in alten Entwürfen (2)

Frage von Xartor zum Thema Outlook & Mail ...

RedHat, CentOS, Fedora
Linux-Distribution: Fedora 25 erscheint mit Wayland als Standard (1)

Link von runasservice zum Thema RedHat, CentOS, Fedora ...

LAN, WAN, Wireless
Cisco AccessPoint 1131 - Status LED Red Radio LED blinkt rot (9)

Frage von 1x1speed zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (21)

Frage von Xaero1982 zum Thema Microsoft ...

Windows Update
Treiberinstallation durch Windows Update läßt sich nicht verhindern (17)

Frage von liquidbase zum Thema Windows Update ...

Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
Suche passender Treiber (12)

Frage von stolli zum Thema Windows Server ...