Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zellen vergleichen, Zellen nach unten

VBA: Zellen vergleichen, Zellen nach unten
Scot
Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für Zeile zu vergleichen. Fehlt in Spalte N ein Wert aus B, soll dieser an der entsprechenden Stelle ergänzt werden: Unter N, O, P und Q soll je eine leere Zelle eingefügt und "Nn" mit dem Wert aus "Bn" gefüllt werden. Wenn möglich soll anschliessend in "On" der Wert aus "Cn" stehen (ist nicht zwingend nötig). Blatt "Ausgangslage" soll am Schluss aussehen wie Blatt "Endzustand".
Mensch, wie lässt sich das hinkriegen?
Ganz herzlichen Dank für eure Mithilfe!
Gruss und schon bald PROSIT
Scot

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA: Zellen vergleichen, Zellen nach unten
29.12.2009 02:57:17
tommy
Sollte explizit zum Beispiel so laufen:
Sub vergl()
Dim rngB, rngN As Range
Dim nB, nN As Long
Dim strV
nB = Cells(Rows.Count, 2).End(xlUp).Row
Set rngB = Range(Cells(6, 2), Cells(nB, 4))
nN = Cells(Rows.Count, 14).End(xlUp).Row
Set rngN = Range(Cells(6, 14), Cells(nN, 17))
For i = 1 To nB
strV = rngB(i, 2) & ", " & rngB(i, 3)
If strV  rngN(i, 2) Then
rngN.Rows(i).Insert Shift:=xlDown
rngN.Cells(i, 1) = rngB.Cells(i, 1)
rngN.Cells(i, 2) = rngB.Cells(i, 2)
End If
Next
End Sub
Und hier nochmal die Datei mit eingefügter Prozedur und Musterlösung
https://www.herber.de/bbs/user/66862.xls
Zum Test den Ausgangszustand wieder herstellen - dabei die Pünktchen der Leerzellen weglassen.
Anzeige
AW: VBA: Zellen vergleichen, Zellen nach unten
29.12.2009 20:52:59
Scot
Lieber Tommy
Fantastisch! Vielen Dank für deine super schnelle Lösung. Nun kann ich endlich weiter arbeiten.
Guten Rutsch, wenn's dann so weit ist!
Gruss
Scot
AW: VBA: Zellen vergleichen, Zellen nach unten
29.12.2009 22:17:10
Scot
Lieber Tommy
Liebe Leute
Nun, Tommys Code hat auf den ersten Blick funktioniert, v.a. in Bezug auf das zuerst hochgeladene File. Nun, bei der konkreten Anwendung, treten Fehler auf und die Liste wid unbrauchbar. Aus diesem Grund habe ich mal ein ganz konkretes anonymisiertes Beispiel hochgeladen mit der Bitte um Lösung. Keine Ahnung, müsste doch eingentlich mit Tommys Code gehen?
https://www.herber.de/bbs/user/66878.xls
Vielen lieben Dank für die Mithilfe!
Gruss und schönen Abend
Scot
Anzeige
AW: VBA: Zellen vergleichen, Zellen nach unten
30.12.2009 19:16:19
Jürgen
Dürfte erledigt sein, da am 30.12. nochmals gepostet wurde
AW: VBA: Zellen vergleichen, Zellen nach unten
31.12.2009 10:04:04
Scot
Hallo allerseits
Jawohl, ich kann bestätigen, dass Jürgen aufgrund Tommys Vorarbeit mein Anliegen gelöst hat. Die Lösung findet sich hier:
https://www.herber.de/bbs/user/66896.xls
Ganz herzlichen Dank euch beiden und alles Gute!
Scot

328 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 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
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2