Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Bienschen vom 21.01.2019, 11:07 Options
vba vergleich des zelleninhalts
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
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 vom 21.01.2019, 12:32 Options
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 vom 21.01.2019, 12:34 Options
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 vom 21.01.2019, 12:54 Options
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 vom 21.01.2019, 13:55 Options
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 vom 21.01.2019, 18:22 Options
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
Ähnliche Themen
Lange FMatrix Formel per VBA berechnen lassen
achim71 24.02.2007 - 123 Hits - 2 Antworten
Kann ich bei VBA auch Kommazahlen zum Vergleich nehmen?
Sansa 17.10.2007 - 67 Hits - 1 Antwort
wenn vergleich mit VBA mit woertern ... und teilwoertern in einer zelle
CHRMAY 10.01.2008 - 35 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
