ich habe da ein kleines Problem und finde im Netzt nicht so die passende Lösung (oder ich such einfach falsch). Vielleicht könnt ihr mir ja helfen.
Ich habe folgenden Code:
Option Explicit
Dim Zeile As Integer
Dim Spalte As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Offset(-1, 0).Value = 1 Then
Spalte = (Year(Now) - 2021) * 6 + 2
Else
Spalte = (Year(Now) - 2021) * 6 + 5
End If
Zeile = Tabelle1.Cells(Rows.Count, Spalte).End(xlUp).Row + 1
Tabelle1.Cells(Zeile, Spalte - 1).Value = Now
Tabelle1.Activate
Cells(Zeile, Spalte).Select
End Sub
hier die Datei:https://www.herber.de/bbs/user/153926.xlsm
Ich möchte von dem Protokoll-Arbeitsblatt in passende Zelle auf dem "Laufzeit-Arbeitsblatt"springen in Abhängigkeit von dem Wert in Spalte B
Leider kommt immer Laufzeitfehler 1004. Actvate oder Select ist mit dem RangeObject nicht ausführbar.
Das ist bestimmt nur ein Kleiner Fehler, aber ich steh da grad echt auf dem Schlauch.
Danke euch vorab
Steve