Vba Zeilen vergleich :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Vba Zeilen vergleich

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 20.06.2008, 10:05

Hallo

wie vergleiche ich mit VBA die Werte von 2 Zeilen also A1 mit B1 A2 mit B2 usw...

Gruß

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 20.06.2008, 10:26

Hallo!

Meinst du sowas?

For i = 1 To 100
If Cells(i, 1) = Cells(i, 2) Then
'mach was
End If
Next i

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 20.06.2008, 10:27

Hm ne also ich meine es z.b so, vergleiche jede Zelle von 1:1 mit der darunterliegenden Zelle 2:2 wen alle übereinstimmen mach....
Also irgendwie alle zellen von 1:1 in einem Array speichern und dann mit dem Array von Zeile 2 vergleichen

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 20.06.2008, 10:42

Hallo!

Dann vielleicht so?

Code:

Sub Vergleich()
Dim Zeile1, Zeile2, i As Integer, x As Integer
Zeile1 = WorksheetFunction.Transpose(Rows(1))
Zeile2 = WorksheetFunction.Transpose(Rows(2))
For i = 1 To UBound(Zeile1)
If Zeile1(i, 1) = Zeile2(i, 1) Then x = x + 1
Next i
If x = UBound(Zeile1) Then
MsgBox "Alle sind gleich"
Else: MsgBox "Es bestehen Unterschiede"
End If
End Sub

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 20.06.2008, 10:56

Ja genau so!

aber ich check bei dem Code nicht richtig durch Embarassed

GRuß

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 20.06.2008, 11:05

Hallo!

Zeile1 und Zeile2 sind die Arrays, in denen die Zellinhalte eingelesen werden.
UBound bestimmt die Größe des Arrays (Spaltenanzahl):
16384 in Excel2007
256 in allen anderen Versionen
x ist der Zähler für gleiche Einträge. Ist x gleich UBound(Zeile1), dann sind alle Einträge gleich.
Cleverer wäre vielleicht die umgekehrte Abfrage:

If Zeile1(i, 1) <> Zeile2(i, 1) Then x = x + 1
und
If x = 0 Then...

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 455
Wohnort: Fridingen an der Donau

Verfasst am: 20.06.2008, 11:16

Danke ich denke mal so ungefähr hab ich es verstanden.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Automatische Kopieren in andere Zeilen	Deltar	Microsoft Excel Hilfe	1	26.11.2008, 18:24
	Zeilen zusammenfügen	sinclair	Microsoft Word Hilfe	1	21.11.2008, 20:05
	Tabellen vergleich	crudi	Microsoft Access Hilfe	1	17.11.2008, 10:59
	Maximale Anzahl der Zeilen bei Pivot ...	McPilsbier	Microsoft Excel Hilfe	1	05.11.2008, 13:55
	Index und Vergleich Formel	Scabbia	Microsoft Excel Hilfe	3	30.10.2008, 13:54

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de