Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte von markierten Zellen vergleiche

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten 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
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
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
Anzeige
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
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
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
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
Markierten Bereich aus Excel in Word einfügen
Peter

Hallo liebes Forum,
ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
Selection.Copy
Pfad = ThisWorkbook.Path & "\Dokument1.doc...
18.11.2011 19:43:13
Thread-ID: 1238451
3 Beiträge
Mappe per email versenden
Stan

Hallo,
Ich will eine Arbeitsmappe mit makro als email verschicken.
Es funktioniert mit festen Empfänger. Ich will den Empfänger immer von der Zeile A15 nehmen.
Was muss ich hier ändern?
Dim Empfänger As String
Empfänger = A15
ActiveWorkbook.SendMail "Empfänger", "Thema d...
29.11.2011 12:13:57
Thread-ID: 1239871
6 Beiträge
Tabelle in word einfügen
Carle

Ahoi!
Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
31.01.2012 14:19:35
Thread-ID: 1248650
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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