Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige