Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA lösung benötigt

Forumthread: VBA lösung benötigt

VBA lösung benötigt
09.11.2006 13:35:23
varo
Hallo Leute,
hoffe ihr könnt mir bei einem problem helfen.
ich möchte folgendes einrichten:
eine excel anwendung die verschiedene commond buttons hat
(für verschiedene waren) nun möchte ich, dass wenn man die
buttons betätigt immer eine zeile mit der artikelnummer
aufgefüllt wird.
beispiel:
button 1 = ware a
button 2 = ware b
button 3 = ware c
ich erfasse die bestellung in spalte zb. a1 und betätige button 1
in a1 steht nun "ware a", dann betätige ich zb. button 3, und jezt
kommts: ware c steht nun in zeile a2 usw.
allso soll die vba erkennen ob in a1 schon etwas steht und automatisch
die a2 als nächstes freies feld erkennen (vorausgesetzt sie ist leer)
Hoffe ich habs einigermassen verständlich rübergebracht,
danke sehr im voraus
lg
stefan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA lösung benötigt
09.11.2006 13:49:37
hvtfAgNT
Hallo Stefan,
Folgenden Code in ein Modul:

Option Explicit                            'erzwingt Dimensionierung
Dim Irow As Integer                        'Irow wird als integer dimensioniert
Sub Eintragen(Ware As String)              'Die Eintragen-Sub kriegt eine Ware übergeben
Irow = Cells(Rows.Count, 1).End(xlUp).Row + 1    'Die letzte Zeile aus Spalte 1
Range("A" & Irow) = Ware                   'In Spalte A die Ware eintragen
End Sub

Im Blatt selbst ziehst du dir Buttons aus den Steuerelementen. Benenn die Buttons gleich sinnvoll um, damit du später die Übersicht behälst. Ein Button könnte so aussehen:

Private Sub ButtonHolz_Click()
Call Eintragen("Holz")
End Sub

Ergebniss: Immer wenn der Button "Glas" gecklickt wird, steht in der letzten Zeile der Spalte A das Wort "Holz".
Gruß,
Klaus M.vdT.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige