mit der im forum recherche gefundenem code lasse ich die markozeilen entfernen, bevor sie unter einem anderen blattnamen gespeichert wird.
ActiveWorkbook.Unprotect
Dim WB As Workbook
Set WB = ActiveWorkbook
With WB.VBProject.VBComponents(2).CodeModule
.DeleteLines 1, .countoflines
End With
unerklärlicher weise ist nach dem code immer noch folgender rest auf dem neuen workbook "tabelle 1" vorhanden, keine ahnung wieso das noch übrigbleibt? hat jemand einen hinweis?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
2. frage:
über ein userform will ich eine zahleneingabe in die tabelle übernehmen, wobei nach einer kleinen logischen prüfung die eingabe zellenweise erfolgen soll, ich bin noch nicht klargekommen, wie ich das hinbekommen soll (am liebsten mit einer schleife)
hier der programmteil:
Private Sub TextBox7_Change()
'Geburtsdatum mit Überprüfung auf Logik
Dim Txt
Txt = TextBox7.Text
If Txt = "" Then Exit Sub
If IsNumeric(Txt) = False Then GoTo error
If Len(Txt) = 6 Then
Txt = DateSerial(Right(Txt, 2), Mid(Txt, 3, 2), Left(Txt, 2))
If Not IsDate(Txt) Then
GoTo error
Else
Eintragen-Sequenz
End If
End If
Exit Sub
error:
Beep
MsgBox "Kein Datum!", vbCritical
TextBox7.Text = ""
End Sub
ich bitte um unterstützung!