Office: VBA Problem

Hey bin neu hier kann sich mal jemand den Fehler anschauen ich weiß nicht mehr weiter...

Code:

Dim Spalte As Integer
Dim Name As String

Sub Eintragen()
Spalte = Sheets("Einstellungen").Range("B3").Value
Sheets("Gästebuch").Select
Sheets("Gästebuch Daten").Range(Cells(Spalte + 1, 1), Cells(Spalte + 1, 1)).Value = Sheets("Gästebuch").Cells(4, 2).Value <<----- Fehler
' Sheets("Gästebuch Daten").Select
Sheets("Einstellungen").Range("B3").Value = Spalte + 1
End Sub

 

Hallo Jack_Sparrow,

... und ich weiss nicht, was du (wirklich) erreichen willst. Das Ziel des Codes sollte mit beschrieben werden. Aber ich ahne da etwas. Vielleicht ist das ja die Lösung:

Code:

Option Explicit

'Dim Name As String => Variablen dürfen keine reservierten Namen haben!

Sub Eintragen()
   Dim Spalte As Integer
   Spalte = Sheets("Einstellungen").Range("B3").Value
   'Sheets("Gästebuch").Select            => Überflüssig!
   Sheets("Gästebuch Daten").Cells(Spalte + 1, 1).Value = Sheets("Gästebuch").Cells(4, 2).Value 'war ein <<----- Fehler
   ' Sheets("Gästebuch Daten").Select     => Überflüssig!
   Sheets("Einstellungen").Range("B3").Value = Spalte + 1
End Sub

 

Danke es funktioniert.