Excel tabelle Makro Maske Bruno arnold Exceldaten

Excel, Daten Maske per Makro

Von: , Frage gestellt am Do, 6. Nov 2008

Hallo zusammen,

Habe folgende Tabelle:


A8.....Kreditor-Nr. |..Kreditor
A9.....100.............|..Anton
A10...101.............|..Andreas
A11...102.............|..Arnold
A12...200.............|..Bernd
A13...201.............|..Bernhard
A14...202.............|..Bruno
A15...300.............|..Chris
A16...301.............|..Christian
A17...302.............|..Carlo

etc.....


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.

mfg
dnbma

1 Antworten zu dieser Frage

1. Antwort von nach einer Stunde 0 hilfreich

   Re: Excel, Daten Maske per Makro

   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.
   Hi dnbma,
   
   bezogen auf diese Tabelle:
   
   

   Tabellenblatt: [Mappe1]!Tabelle1
   │    A   │     B    │
   ──┼────────┼──────────┤
   1 │ Nummer │ Kreditor │
   ──┼────────┼──────────┤
   2 │    100 │ K1       │
   ──┼────────┼──────────┤
   3 │    123 │ K2       │
   ──┼────────┼──────────┤
   4 │    102 │ K3       │
   ──┴────────┴──────────┘
   

   
   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
   

   
   
   
   Gruß
   Reinhard
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!