Leere Zelle füllen, wenn Bedingung erfüllt

Hallo alle zusammen,
ich hoffe jemand hat eine Idee für mich, wie ich das möglichst schnell hinbekomme?
Es geht um folgende Bedingung.
Wenn in 2 aufeinanderfolgenden Zeilen die Texte in den Spalten D und E identisch sind und in denselben Zeilen in Spalte F eine Zelle einen Text beinhaltet (egal in welcher der beiden) und die andere leer ist, hätte ich gerne, dass die andere Zelle in Spalte F mit demselben Text gefüllt wird.
Oder hoffentlich richtig mit Formel ausgedrückt

=ODER(UND(D1=D2;E1=E2;F1="";F2"");UND(D1=D2;E1=E2;F1"";F2=""))

das ganze auf alle Zeilen kopiert.
Dann soll in den Zellen in denen diese Formel WAHR ausgibt, die leere Zelle in Spalte F mit dem Text der vollen Zelle in Spalte F gefüllt werden.
Nur wie lässt sich das möglichst einfach auf 130.000 Zeilen anwenden?
Hat da jemand eine praktikable Lösung?
Danke und Gruß
Jenny

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Okay Jenny,
Ich poste einfach mal meinen VBA-Code den ich gebastelt habe, vielleicht hilft er dir ja weiter.
Fand es als VBA-Code wesentlich leichter. *Grins*

Sub pruefe()
Dim eins As String
Dim zwei As String
Dim drei As String
Dim vier As String
Dim i As Integer
Dim o As Integer
Dim x As Integer
Dim wahl1 As String
Dim wahl2 As String
Dim Check1 As Boolean
Dim Check2 As Boolean
Dim Check3 As Boolean
Check1 = False
Check2 = False
Check3 = False
i = 1
o = 2
x = 1
Do
eins = Cells(i, 3)
zwei = Cells(o, 3)
drei = Cells(i, 4)
vier = Cells(o, 4)
wahl1 = Cells(i, 5)
wahl2 = Cells(o, 5)
If eins = zwei Then
Check1 = True
If drei = vier Then
Check2 = True
If Check1 = Check2 Then
Check3 = True
If wahl1 = "" Then
wahl1 = wahl2
Cells(i, 5).Value = wahl1
Else
If wahl2 = "" Then
wahl2 = wahl1
Cells(o, 5).Value = wahl2
Else
End If
'Exit Sub
End If
Else
'Exit Sub
End If
Else
'Exit Sub
End If
Else
'Exit Sub
End If
On Error GoTo Beenden
i = i + 1
o = o + 1
x = x + 1
Loop Until x > 130000
Beenden:
Exit Sub
End Sub

Ich hoffe du verstehst den Code und weist wo du es eventuell anpassen musst, ansonsten raus damit steh dir gern zur Verfügung. (Falls er dir überhaupt weiter hilft.)
Tut mir leid, aber das wäre einfacher mit einem kleinen Beispiel gewesen, für mich zumindest, da das alles so wirr-warr klingt. *smile*
MfG Robin

Beliebteste Forumthreads (12 Monate)

Leere Zelle füllen, wenn Bedingung erfüllt

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zelle füllen, wenn Bedingung erfüllt

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread