Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Überprüfen, ob best. Spalt. letzte Zeile identisc

Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 10:33:26
Peter
Guten Tag
Mein Makro soll nur ablaufen, wenn der letzte Eintrag in den Spalten A, B, C, E, F und G in der gleichen Zeile steht. Das ist hier der Fall. Wenn ich die Teilargumente (z.B. Me.Cells(Rows.Count, 1).End(xlUp).Row) im Direktbereich auswerte, erhalte ich bei allen relevanten Spalten 453, ich sollte also die MsgBox nicht erhalten.
Was mache ich falsch?
Gruss, Peter
Sub XXX()
If Me.Cells(Rows.Count, 1).End(xlUp).Row = _
Me.Cells(Rows.Count, 2).End(xlUp).Row = _
Me.Cells(Rows.Count, 3).End(xlUp).Row = _
Me.Cells(Rows.Count, 5).End(xlUp).Row = _
Me.Cells(Rows.Count, 6).End(xlUp).Row = _
Me.Cells(Rows.Count, 7).End(xlUp).Row Then
Else
MsgBox "Letzter Eintrag der Spalten A, B, C, E, F und G müssen in der gleichen Zeile stehen"
Exit Sub
End If
''' Mein Code
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 11:15:59
hary
Moin Peter 
Dim letzte As Long
letzte = Columns("A:G").Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:= _
xlPrevious).Row
If Application.CountBlank(Cells(letzte, 1).Resize(1, 7)) > 0 Then
MsgBox "Letzter Eintrag der Spalten A, B, C, E, F und G müssen in der gleichen Zeile stehen"
Exit Sub
Else
'dein Code
End If
End Sub

gruss hary

AW: Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 11:33:18
Peter
Hallo Hary
ich danke dir.
Soweit ich sehe, hast du nicht berücksichtigt, dass irrelevant ist, wo der letzte Eintrag in Spalte D steht.
Gruss, Peter

AW: Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 13:28:53
hary
Moin
Jepp,war einfacher. ;-)) 
Dim letzte As Long
letzte = Range("A:C,E:G").Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:= _
_
xlPrevious).Row
If Application.CountA(Cells(letzte, 1).Resize(1, 3), Cells(letzte, 5).Resize(1, 3))

gruss hary

Anzeige
AW: Überprüfen, ob best. Spalt. letzte Zeile identisc
19.11.2014 14:44:39
Peter
Hallo hary
Vielen Dank. So ist es prima.
Gruss, Peter

Vergleich geht so nicht
19.11.2014 12:45:47
Frank
Hallo Peter,
das liegt wohl an der Verkettung der "=" 
Sub test()
If 1 = 1 Then
Else
MsgBox "?"
End If
End Sub

gibt keine MsgBox aus. 
Sub test()
If 1 = 1 = 1 = 1 Then
Else
MsgBox "?"
End If
End Sub

tut das sehr wohl.
Da hilft wahrscheinlich nix anderes, als den Vergleich aufzudröseln oder anders anzugehen.
Grüsse, Frank

AW: Vergleich geht so nicht
19.11.2014 14:46:59
Peter
Hallo Frank
Danke für das Aufzeigen durch die Vereinfachung.
Weshalb die =-VErkettung wohl nicht logisch ist?
Doch hary hat mir jetzt eine Alternative aufgezeigt :-)
Gruss, Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige