Office: 2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

User · 8. Februar 2011

Hallo ich hoffe Ihr könnt mir helfen

ich habe in der Zeile D7 und G7 jeweils ein Wert drin beide Zellen sollen überprüft werden ob der Wert gleich ist und ob dieser Wert mit "GH" beginnt(in der Zelle steht zum bsp. "GH 7788") wenn dieser wert nicht gleich ist und mit "GH" beginnt soll der Wert aus Zeile G7 Kopiert werden und in Tabelle 2 Eingefügt werden (ab D7 und G7 die ganze spalten prüfen bis zum schluß)

Ich danke euch für eure hilfe

:)

Hajo_Zi · 9. Februar 2011

sind es Eingaben? Also Change Ereignis. Oder soll das Makro von Hand gestartet werden?

User · 9. Februar 2011

das makro soll von hand gestartet werden

Hajo_Zi · 9. Februar 2011

Code:

Option Explicit

Sub Unbekannt()
Dim LoLetzte As Long
If Range("D7") Range("G7") And UCase(Left(Range("D7"), 2)) = "GH" _
And UCase(Left(Range("G7"), 2)) = "GH" Then
With Worksheets("Tabelle2")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 4)), _
.Cells(.Rows.Count, 4).End(xlUp).Row, .Rows.Count)
If LoLetzte < IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) Then
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End If
If LoLetzte < 6 Then LoLetzte = 6
.Cells(LoLetzte + 1, 4) = Range("D7")
.Cells(LoLetzte + 1, 7) = Range("G7")
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 10. Februar 2011

Danke habe es mal ausprobiert es funtioniert auf jedenfall in den beiden zellen also D7 und G7 nur er macht leider nicht die ganze spalte und was ich vergessen habe ist was ist wenn D7 mal ohne wert ist aber G7 mit "GH" dann soll er es trotzdem kopieren.

ich hoffe ich verlange nicht zu viel

Hajo_Zi · 10. Februar 2011

von der ganzen Spalte stand nichts im Beitrag. Die letzte ergänzung.
Code:

Option Explicit

Sub Unbekannt()
Dim LoLetzte As Long
If Range("D7") Range("G7") And (UCase(Left(Range("D7"), 2)) = "GH" _
Or Range("D7") = "") And (UCase(Left(Range("G7"), 2)) = "GH" _
Or Range("G7") = "") Then
With Worksheets("Tabelle2")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 4)), _
.Cells(.Rows.Count, 4).End(xlUp).Row, .Rows.Count)
If LoLetzte < IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) Then
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End If
If LoLetzte < 6 Then LoLetzte = 6
.Cells(LoLetzte + 1, 4) = Range("D7")
.Cells(LoLetzte + 1, 7) = Range("G7")
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 10. Februar 2011

ungetestet
Code:

Option Explicit

Sub Unbekannt()
Dim LoLetzte As Long
Dim LoLetzte2 As Long
Dim LoI As Long
LoLetzte2 = IIf(IsEmpty(Cells(Rows.Count, 4)), _
Cells(Rows.Count, 4).End(xlUp).Row, Rows.Count)
If LoLetzte2 < IIf(IsEmpty(Cells(Rows.Count, 7)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) Then
LoLetzte2 = IIf(IsEmpty(Cells(Rows.Count, 7)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
End If
If LoLetzte > 6 Then
For LoI = 7 To LoLetzte2
If Cells(LoI, 4) Cells(LoI, 7) And (UCase(Left(Cells(LoI, 4), 2)) = "GH" _
Or Cells(LoI, 4) = "") And (UCase(Left(Cells(LoI, 7), 2)) = "GH" _
Or Cells(LoI, 7) = "") Then
With Worksheets("Tabelle2")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 4)), _
.Cells(.Rows.Count, 4).End(xlUp).Row, .Rows.Count)
If LoLetzte < IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) Then
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End If
If LoLetzte < 6 Then LoLetzte = 6
.Cells(LoLetzte + 1, 4) = Range("D7")
.Cells(LoLetzte + 1, 7) = Range("G7")
End With
End If
Next LoI
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 10. Februar 2011

der letzte Code geht leider nicht trotzdem danke

Hajo_Zi · 10. Februar 2011

Vielleicht solltest Du Deine Datei verlinken? Warum sollte ich die Zeit investieren, Deine Datei nachzubauen. Die Zeit hast Du doch schon investiert.

Office: 2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen

2 Zellen prüfen ob wert gleich oder ungleich ist und Kopieren Einfügen - Similar Threads - Zellen prüfen wert

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Wert aus Zelle in einer anderen Datei suchen und prüfen, ob weiterer Wert vorhanden ist

Problem: eine zelle auf mehrere werte prüfen

Prüfen, ob eine Zelle in einer Spalte einen bestimmten Wert hat ...

Wert nach Eingabe in Zelle prüfen

3 Zelleninhalte auf identischen Wert prüfen, wenn nicht die Zelle nicht leer ist