Ich bräuchte einen Makro der ein Fenster öffnet das aussieht wie das Fenster von „Daten - Maske“ nur dass man nicht aus „Neu“ klicken muss sonder gleich mit der Eingabe starten kann.
Bzw. würde es mit einer Inputbox auch funzen. Erst die nunmmer dann der Name. Es müsste dann nur automatisch in die letze freie Zelle springen.
Ich bräuchte einen Makro der ein Fenster öffnet das aussieht
wie das Fenster von „Daten - Maske“ nur dass man nicht aus
„Neu“ klicken muss sonder gleich mit der Eingabe starten kann.
Tabellendarstellung erreicht mit dem Code in FAQ:2363
probier mal diese Prozeduren aus:
Sub DatenMaske1()
Dim strNeu As String
Range("A1").Select
strNeu = CStr(Range("A" & Range("A" & Rows.Count).End(xlUp).Row) + 1)
Application.SendKeys "%n" & strNeu & "+{POS1}"
ActiveSheet.ShowDataForm
End Sub
'
Sub DatenMaske2()
Dim strNeu As String
Range("A1").Select
strNeu = CStr(Range("A" & Range("A" & Rows.Count).End(xlUp).Row) + 1)
Application.SendKeys "%n" & strNeu & "%k"
ActiveSheet.ShowDataForm
End Sub
'
Sub DatenMaske3()
Range("A1").Select
Application.SendKeys "%n"
ActiveSheet.ShowDataForm
End Sub