heute stoße ich aus ein Kuriosum bei dem ich Eure Hilfe benötige.
Wenn ich nachstehende Code in Tabelle1 einfüge, funktioniert der mittlere Teil nicht mehr wirklich. So wird weder die erste freie Zeile markiert, noch wird in der MsgBox die richtige Zeilennummer angezeigt.
Danach erfolgt das Einfügen der zuvor definierten Daten ab der >vorher Sobald ich den Code in einem seperatem Modul laufen lasse, funktioniert alles wie es soll...
Könnt Ihr mir sagen wo die Ursache zu suchen ist?
Gruß vom Dan
Option Explicit
Dim name1, adresse, ansprech, telefon, typ, nummer, monat, techniker As String
Dim letztezeile As Long
Sub CommandButton_Eingabe_Click()
name1 = Worksheets("Tabelle1").Range("B4").Value
adresse = Worksheets("Tabelle1").Range("B5").Value
ansprech = Worksheets("Tabelle1").Range("B6").Value
telefon = Worksheets("Tabelle1").Range("B7").Value
typ = Worksheets("Tabelle1").Range("B10").Value
nummer = Worksheets("Tabelle1").Range("B11").Value
monat = Worksheets("Tabelle1").Range("B14").Value
techniker = Worksheets("Tabelle1").Range("B15").Value
On Error Resume Next
Worksheets("Tabelle2").Activate
letztezeile = Range("A3:H38").Find("*", searchdirection:=xlPrevious).Row
Range("A" & letztezeile + 1, "H" & letztezeile + 1).Activate
MsgBox letztezeile + 1
ActiveCell.Value = name1
ActiveCell.Offset(0, 1).Value = adresse
ActiveCell.Offset(0, 2).Value = ansprech
ActiveCell.Offset(0, 3).Value = telefon
ActiveCell.Offset(0, 4).Value = typ
ActiveCell.Offset(0, 5).Value = nummer
ActiveCell.Offset(0, 6).Value = monat
ActiveCell.Offset(0, 7).Value = techniker
End Sub