Supportnet / Forum / Tabellenkalkulation
vba vergleich des zelleninhalts
Frage
hey.
bin grad am vba basteln und möchte eine zelle oder besser gesagt den inhalt der zelle tabelle1 zelle a13 mit der von Tabellenblatt2 zelle z6 vergleichen.
kann mir jemand den befehl sagen.
Vielen Dank
Antwort 1 von rainberg
Hallo Bienschen
Sub test()
MsgBox Worksheets("Tabelle1").Range("A13").Value _
= Worksheets("Tabelle2").Range("Z6").Value
End Sub
Bei Übereinstimmung erhältst Du die Antwort "Wahr", ansonsten "Falsch".
Gruß
Rainer
Sub test()
MsgBox Worksheets("Tabelle1").Range("A13").Value _
= Worksheets("Tabelle2").Range("Z6").Value
End Sub
Bei Übereinstimmung erhältst Du die Antwort "Wahr", ansonsten "Falsch".
Gruß
Rainer
Antwort 2 von fedjo
Hallo Bienschen,
versuchs mit dem Code:
If Worksheets("Tabelle1").Range("A13") = Worksheets("Tabelle2").Range("Z6") Then
Gruß
fedjo
versuchs mit dem Code:
If Worksheets("Tabelle1").Range("A13") = Worksheets("Tabelle2").Range("Z6") Then
Gruß
fedjo
Antwort 3 von Bienschen
Vielen Dank an beide,
habe die Lösung von fedjo genommen.
Wollte noch mal fragen ob es auch möglich wäre noch eine bedingung abprüfen zu lassen in einer schleife..
also das erste war a13 = z6 und das zweite ist A14 und v6.
und wenn das eintrifft.. dann soll c6 kopiert werden..
wenn das geht wäre ich so dankbar..
Grüße
Bienschen
habe die Lösung von fedjo genommen.
Wollte noch mal fragen ob es auch möglich wäre noch eine bedingung abprüfen zu lassen in einer schleife..
also das erste war a13 = z6 und das zweite ist A14 und v6.
und wenn das eintrifft.. dann soll c6 kopiert werden..
wenn das geht wäre ich so dankbar..
Grüße
Bienschen
Antwort 4 von fedjo
Hallo Bienschen,
If Worksheets("Tabelle1").Range("A13") = Worksheets("Tabelle2").Range("Z6") And Worksheets("Tabelle1").Range("A14") = Worksheets("Tabelle2").Range("V6") Then
Range("C6").Copy
End If
Gruß
fedjo
If Worksheets("Tabelle1").Range("A13") = Worksheets("Tabelle2").Range("Z6") And Worksheets("Tabelle1").Range("A14") = Worksheets("Tabelle2").Range("V6") Then
Range("C6").Copy
End If
Gruß
fedjo
Antwort 5 von Bienschen
So,
jetzt bräuchte ich mal einen der mir dieses dumme ding verbessert oder richten kann. Sitzte seit stunden da und es geht nicht.
Die Problematik ist, dass ich in A13 in der Matrik eine auswahlliste habe. Das Makro greift ja auf diese Zelle. und wenn ich eine Nummer aus meiner Liste auswähle, gibt es da probleme..
Außerdem habe ich auch noch in die spalte c in der Datenbank und die nummern sind über einen sverweis bestimmt.
gibt es da probleme mim makro??
Danke
Sub Lieferschein()
Dim zeile As Long
zeile = Range("A65536").End(xlUp).Row
For i = 1 To zeile
If Worksheets("Matrix").Range("A13") = Worksheets("Datenbank").Range("C3") And Worksheets("Matrix").Range("A14") = Worksheets("Datenbank").Range("D3") Then
Worksheets("Datenbank").Range("D:M").Copy
Sheets("Matrix").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
Next i
End Sub
jetzt bräuchte ich mal einen der mir dieses dumme ding verbessert oder richten kann. Sitzte seit stunden da und es geht nicht.
Die Problematik ist, dass ich in A13 in der Matrik eine auswahlliste habe. Das Makro greift ja auf diese Zelle. und wenn ich eine Nummer aus meiner Liste auswähle, gibt es da probleme..
Außerdem habe ich auch noch in die spalte c in der Datenbank und die nummern sind über einen sverweis bestimmt.
gibt es da probleme mim makro??
Danke
Sub Lieferschein()
Dim zeile As Long
zeile = Range("A65536").End(xlUp).Row
For i = 1 To zeile
If Worksheets("Matrix").Range("A13") = Worksheets("Datenbank").Range("C3") And Worksheets("Matrix").Range("A14") = Worksheets("Datenbank").Range("D3") Then
Worksheets("Datenbank").Range("D:M").Copy
Sheets("Matrix").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
Next i
End Sub