Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte von markierten Zellen vergleiche

Inhalte von markierten Zellen vergleiche
02.09.2020 11:54:31
markierten
Hallo Leute,
wie kann ich bitte per VBA von zwei markierten Zellen die Inhalte überprüfen?
Die neuen Texte / Wörter sollen farbig in GRÜN gekkenzeichnet werden. Die entfallen Texte / Wörter sollen durchgestrichen und in ROT dargestellt werden.
Vielen herzlichen Dank im Voraus!
Beste Grüße,
Sergej

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte von markierten Zellen vergleiche
02.09.2020 12:36:21
markierten
Hi
probiers mal so, Anleitung steht im Code
die Anzahl, wie oft ein Wort vorkommt, wird jedoch nicht verglichen.
Sub Zellen_WorteVergleich()
'--- die zwei Zellen, die miteinander vergleichen werden sollen, müssen
'--- nacheinander mit gedrückter STRG-Taste markiert werden.
'--- die Zelle mit dem alten Text zuerst, die Zelle mit dem neuen Text als zweites
Dim rng(0 To 1) As Range
Dim Txt(0 To 1) As String
Dim Worte(0 To 1)
Dim i As Long, w As Long
Dim Pos As Long
For i = 0 To 1
Set rng(i) = Selection.Areas(i + 1)
Txt(i) = rng(i).Text
Worte(i) = Split(Txt(i), " ")
Next
For i = 0 To 1
Pos = 0
For w = 0 To UBound(Worte(i))
Pos = Pos + 1
If Worte(i)(w)  "" Then
If InStr(" " & Txt(1 - i) & " ", " " & Worte(i)(w) & " ") = 0 Then
With rng(i).Characters(Pos, Len(Worte(i)(w))).Font
Select Case i
Case 0
.Color = vbRed
.Strikethrough = True
Case 1
.Color = vbGreen
End Select
End With
End If
End If
Pos = Pos + Len(Worte(i)(w))
Next
Next
End Sub
Gruß Daniel
Anzeige
AW: Inhalte von markierten Zellen vergleiche
02.09.2020 13:48:06
markierten
Hallo Daniel,
vielen herzlichen Dank!
Beste Grüße,
Sergej

300 Forumthreads zu ähnlichen Themen

excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Anzeige
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
Anzeige
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
Autofilterergebnisse per Email versenden
Mister

Hallo,
ich stehe mal wieder auf'm Schlauch. Aus einer UF heraus filter ich Datensätze in einer Tabelle mit dem Autofilter. Ich möchte jetzt die gefilterte Tabelle per Mail versenden, möchte aber, dass nur die gefilterten Ergebnisse geschickt werden. Ich habe lange im Archiv recherchiert...
27.04.2010 13:47:28
Thread-ID: 1154064
4 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Attachmentname in E-Mail Nachicht einfügen
Seppel

Hallo VBA Gemeinde,
Über ein Exeldatei lasse ich eine E-Mail generieren, das funktioniert so weit auch alles mit dem hier unten angegbenen Code. Ich möchte aber gern noch in den Mail Body (Nachichtentext) den Namen der angefügten Datei mit einbinden.
Im Nachichtentext wäre das z.B. nach...
24.09.2011 07:05:04
Thread-ID: 1231295
5 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
3
4
36
1
3
3
4
3
2
5
1
2
8
2
4
1
4
9
4
3
1
3
2