Hallo zusammen,
ich habe folgendes Problem:
- 2 Tabellenblätter in der Excel-Tabelle: "Register1" und "Register2"
-in der Spalte A ist in "Register1" und "Register2" eine ganzzahlige Zahl, die unterschiedlich ist und verglichen werden soll:
Wenn der Wert der Zelle von Spalte A in „Register1“ z.B. in Zelle A3 = Wert der Zelle von Spalte A in "Register2" z.B. in Zelle A1
Dann soll der Inhalt von der Zeile (B3,C3,D3) in „Register1“ = Zeile von "Register2" (B1,C1,D1)
Sonst soll kein Wert in der Zeile in „Register2“ erscheinen
Dieser Code kopiert den Wert einer bestimmten Zelle aus „Register1“ in "Register2":
Sub Optimierung()
'Zelleninhalt aus Register1 in Register2 kopieren und einfügen
Worksheets("Register1").Cells(1, 1).Copy Destination:=Worksheets("Register2").Cells(1, 1)
End Sub
Allerdings fehlt hier noch die oben genannte Wenn-Dann-Sonst Bedingung. Ich habe es mal mit dem Verwenden von 2 Variablen versucht – funktioniert jedoch nicht mit dem folgenden Code:
Sub Optimierung()
Dim i As Integer
For i = 1 To 4
Dim y As Integer
For y = 1 To 4
'Bedingung wenn Mangelnr Register Protokoll = Mangelnr Register Mängelliste, dann…
'Zelleninhalt aus Register Protokoll in Register Mängelliste kopieren und einfügen
If Worksheets("Protokoll").Cells(i, 1).Value = Worksheets("Mängelliste").Cells(y, 1) Then
Worksheets("Protokoll").Cells(i, 2).Copy Destination:=Worksheets("Mängelliste").Cells(y, 2)
Else: Worksheets("Mängelliste").Cells(y, 2).Value = ""
End If
Next
Next
End Sub
|