|
Hallo liebe Leute,
ich bin am verzweifeln.
Ich habe 2 Tabellenblätter und will bei beiden eine Spalte miteinander vergleichen.
Bei Tabelle 1 Spalte 5 soll dafür eine Zelle(Bps. Cells(3, 5) )genommen werden, dann soll in Tabelle 2 Spalte 1 ein vergleich erfolgen umzu sehen ob der Zelleninhalt aus der Zelle in dieser Spalte vorhanden ist, wenn ja dann soll in Tabelle 1 Spalte 1 in dieser Zeile wo die Zelle(Spalte 5) ist der Zellenwert geändert werden (Cells(3, 1) ).
Dann soll es eine Zeile nachunten springen (Cells(4, 5) ). Das soll solange gemacht werden bis das ende der Spalte erreicht wird.
Ich habe auch einen Code der in der Theorie genau das machen soll, allerdings bekomme ich immer eine Fehlermeldung egal wie oft ich es schon versucht habe.
Aktuell ist es diese Fehlermeldung "Laufzeitfehler '13' Typen unerträglich" Ich habe keine Ahnung was der Fehler sein soll und verzweifle seit bestimmt einer Woche daran und brauche dringend Hilfe.
Hier der aktuelle Code:
Dim z As Integer
Dim BereichDL As Range
Set BereichDL = Sheets("Kostenstellen DL-Nr.").Range(Cells(3, 1), Cells(LetzteZeileDL45, 1))
z = 3
Do Until z = SAP_letzteZeile
If Sheets("SAP Auswertung").Range("E" & z).Value Like BereichDL.Value Then
Sheets("SAP Auswertung").Range("A" & z).Value = "K45"
End If
z = z + 1
Loop
Microsoft 365 Apps for Enterprise Version 2008
|