Target.Column
12.03.2020 09:33:21
Matthias
ich brauche mal wieder eure Hilfe
Ich habe mehrere Tabellen die immer gleich aufgebaut sind. Das Modul wird per Tastenkombination in der jeweiligen Tabellen bei Bedarf auslöse.
Nun möchte ich sicherstellen das wenn ich das Makro auslöse eine Zelle in der Spalte 4 aktiv ist ansonsten soll eine Fehlermeldung erscheinen.
Mein Marco sieht wie folgt aus:
Sub geb()
Dim Zeile As Integer
Dim LetzteZeile As Long
LetzteZeile = Worksheets("Mitgliderliste").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheet
If Target.Column 4 Then
MsgBox "Fehler"
Else
For Zeile = 2 To LetzteZeile
If ActiveCell = Worksheets("Mitgliderliste").Cells(Zeile, 2) And _
ActiveCell.Offset(0, 1) = Worksheets("Mitgliderliste").Cells(Zeile, _
_
1) Then
Worksheets("Mitgliderliste").Cells(Zeile, 3).Copy
ActiveCell.Offset(0, 2).PasteSpecial xlPasteValues
End If
Next Zeile
End If
End With
End Sub
Ich bekomme immer die Fehlermeldung dass ein Objekt fehlt