Excel - VBA Programm

[Mirko (mirkomikro)]

Hallo,


vorweg, ich kenne mich mit VBA nicht aus, aber ich wollte mal aus Spass 
heraus ein kleines Projekt probieren.

*****

Schritt 1: Über ein Formular wird eine Tabelle (Tabelle1) mit benötigten 
Artikeln, Menge, Bestelldatum (bereits mit aktuellem Datum ausgefüllt), 
Name (über Dropdown auswählbar) und Kommentar befüllt. - Check!

Schritt 2: Die Tabelle wird von einem Sachbearbeiter kontrolliert und 
nach durchgeführter Bestellung wird ein Bestelldatum händisch in die 
passende Zelle eingegeben. - Check!

Schritt 3: Die Ware wird geliefert und der Wareneingang wird bestätigt, 
indem wiederum ein Datum in die passende Zelle eingegeben wird. - Check!

Schritt 5: Zum Abschluss kann dann der gewünschte Artikel über ein 
"Dropdown"-Menü (Menueliste) in der alle Artikel der Tabelle1 
aufgelistet sind mittels CommandButton (ArtikelLoeschen) gelöscht 
werden.

*****

Die Artikelliste wird im Dropdown angezeigt, aber mir ist es nicht 
möglich über ein CommandButton die komplette Zeile in der Tabelle zu 
löschen. Kann mir da vielleicht jemand unter die Arme greifen?

Private Sub DatentransferAbbrechen_Click()

 

    'Eingabefenster schliesen

    Unload Bestellformular

 

End Sub

 

 

 

Private Sub DatentransferUebernehmen_Click()

 

    'Eingabe der Schaltflächen in die Arbeitsmappe übernehmen

    Dim last As Integer

 

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

 

        ActiveSheet.Cells(last, 1).Value = Bestellformular.Datum.Value

        ActiveSheet.Cells(last, 2).Value = Bestellformular.Artikel.Value

        ActiveSheet.Cells(last, 3).Value = Bestellformular.Menge.Value

        ActiveSheet.Cells(last, 6).Value = Bestellformular.Kommentar.Value

        ActiveSheet.Cells(last, 7).Value = Bestellformular.Namenskuerzel.Value

   

End Sub

 

 

 

Private Sub UserForm_Initialize()

 

    'Vorausgefülltes Datum für die Schaltfläche

    Bestellformular.Datum.Value = Date

 

    'Dropdown Menü befüllen (Mitarbeiterliste)

    With Bestellformular.Namenskuerzel

        .AddItem "R.R."

        .AddItem "O.S."

        .AddItem "M.G."

        .AddItem "R.S."

        .AddItem "O.D."

        .AddItem "R.H."

    End With

   

    'Dropdown Menü befüllen (Menueliste)

    Menueliste.RowSource = Range("Tabelle1[Artikel]").Address

 

End Sub

[Frank O. (fop)]

Für so was kann man den Makrorekorder zweckentfremden. Makroaufzeichnung 
starten. Gewünschte Aktion per Hand ausführen. Makroaufzeichnung 
beenden. Aufgezeichnetes Makro bestaunen und versuchen es zu verstehen.

[Cha-woma M. (Firma: --------------) (cha-ar-196)]

Frank O. schrieb:
> Für so was kann man den Makrorekorder zweckentfremden.

Genau!