Clever-Excel-Forum - Problem mit einer Datenmaske VBA

Hallo erstmal ...

Da ich ein Problem mit einer VBA Datei habe, dachte ich mir ich melde mich mal an. Vielleicht kann man
mir bei meinem Problem helfen. Ich habe schon diverse Videos und Seiten angeschaut aber ich komme nicht weiter.

Meine Kenntnisse in Sachen Excel sind eigentlich gut aber VBA bin ich ein absoluter Neuling. Habe zwar das das eine
oder andere in VBA gemacht aber jetzt komme ich alleine nicht mehr weiter.

Ich habe ein kleines Programm geschrieben was ich noch erweitern möchte. Es sind jetzt noch 2 Tabellenblätter. Auf
dem Tabellenblatt Eingabe, kann ich die Daten eingeben und wenn ich auf Update klicke, übernimmt er die Daten auf
Tabellenblatt 2. Dort rechnet er alles automatisch zusammen und sagt mir auch ob ich bestellen muß.

Das ganze würde ich jetzt aber mit einer Datenmaske erstellen aber da komm ich einfach nicht mehr weiter. Habe die
Maske schon mal erstellt. Diverse Videos geschaut und Seiten im Internet gelesen aber ich bekomm es nicht hin das
er die Daten aus der Maske im Tabellenblatt übernimmt.

Ich lade die Datei einfach mal hoch dann könnt ihr sie euch anschauen und mein Problem besser verstehen.

Hoffe ihr könnt mir weiterhelfen.

Gruß Andreas

Hi,

(22.06.2015, 18:02)viperxx72xx schrieb: [ -> ]Ich lade die Datei einfach mal hoch dann könnt ihr sie euch anschauen und mein Problem besser verstehen.

hier ein Makro für die Userform = Eingabemaske, damit benötigst Du das Tabellenbaltt "Eingabe" nicht mehr:

Option Explicit



Private Sub cmdAbbruch_Click()

   Unload txtWarenentnahme

End Sub



Private Sub cmdÜbernehmen_Click()

   Dim loLetzte As Long

   

   Application.ScreenUpdating = False

   With Worksheets("Waren")

       loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1

       .Range("A" & loLetzte).Value = TextBox1

       .Range("B" & loLetzte).Value = TextBox2

       .Range("C" & loLetzte).Value = TextBox3

       .Range("D" & loLetzte).Value = TextBox4

       .Range("E" & loLetzte).Value = TextBox5

   End With

   

'    Worksheets("Eingabe").Range("C4").Select 

   Application.ScreenUpdating = True

   

   Unload txtWarenentnahme

   

End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15

hier Dein Makro für das Tabellenblatt "Eingabe" ein bißchen verkürzt:

Option Explicit



Private Sub CommandButton1_Click()

   Dim CustomerArtikel As String, CustomerDatum As String, CustomerZugang As Integer, CustomerAbgang As Integer, CustomerUmlagerung As Integer

   Dim loLetzte As Long

   

   Application.ScreenUpdating = False

   

   With Worksheets("Eingabe")

       CustomerArtikel = .Range("C4")

       CustomerDatum = .Range("C5")

       CustomerZugang = .Range("C6")

       CustomerAbgang = .Range("C7")

       CustomerUmlagerung = .Range("C8")

   End With

   

   

   With Worksheets("Waren")

       loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1

       .Range("A" & loLetzte).Value = CustomerArtikel

       .Range("B" & loLetzte).Value = CustomerDatum

       .Range("C" & loLetzte).Value = CustomerZugang

       .Range("D" & loLetzte).Value = CustomerAbgang

       .Range("E" & loLetzte).Value = CustomerUmlagerung

   End With

   

   Worksheets("Eingabe").Range("C4").Select

   Application.ScreenUpdating = True

   

End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15

Hallo Rabe

Vielen Dank für deine super schnelle Hilfe. Hat alles perfekt geklappt.

Jetzt weiß ich auch wo ich den Fehler gemacht habe.

So macht es Spaß wenn man schnell und perfekt geholfen bekommt. Hoffe ich
kann noch viel von euch lernen.

Gruß Andreas