Ausgefüllte Felder in andere Tabelle übertragen?

Hallo!
Erst mal vielen Dank an Carsten und Werner B. für die letzte Hilfe. Bräuchte aber nochmals Unterstützung. Mein kleines Projekt ist schon ganz gut fortgeschritten, aber leider hänge ich noch bei einem Problem. Hier habe ich eine kleine Beispieldatei hochgeladen: https://www.herber.de/bbs/user/603.xls
Wenn ich über die Buttons eine Tischbestellung aufnehme, und der Gast dann zahlt, sollen die Stückzahlen in die andere Tabelle übertragen werden und dann beim jeweiligen Tisch gelöscht werden. Die verschiedenen Getränke sollten immer in der richtigen Spalte ganz zum Schluß in die nächste freie Zelle eingetragen werden. (Als kleiner Bonus wäre es super, wenn nur die Zellen umkopiert werden, wo auch ein Wert drinnensteht - ist aber nicht zwingend nötig, da ich ja eh genug Zeilen zur Verfügung hätte und alles eh beim Kassaabschluß gelöscht wird.)
Mir gelingt aber genau das nicht, daß ich die nächste freie Zelle aufrufe und dann den Wert eintragen lasse.
Könnte mir dabei bitte jemand helfen?
Vielen Dank schon mal für die Hilfe und herzliche Grüße!
Wolfram

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub alleBestellungen() Dim wsk As Worksheet Dim bCount As Byte Dim lgZeile As Long Set wks = Sheets("Alle Bestellungen") For bCount = 1 To 3 If Not IsEmpty(Cells(bCount * 2, 1)) Then lgZeile = wks.Cells(65536, bCount).End(xlUp).Row + 1 wks.Cells(lgZeile, bCount) = Cells(bCount * 2, 1) End If Next Range("A2:A6").ClearContents End Sub

Hallo Wolfram,
hab mir das jetzt genauer angesehen und würde vor allem aufgrund deren Anzahl auf die Schaltflächen verzichten. Als Alternative würde ich den Doppelklick in der Preisliste verwenden. Mal als Demo: wechsele in den VBA-Editor, Doppelklick auf die Tabelle ("Preisliste"). In das sich öffnende Modul fogenden Code kopieren:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 4 Or Target.Column = 10 Then
Target = Target + 1
Cancel = True
End If
End Sub

Und zum Probieren in den Spalten D bzw. J einen (oder mehrere) Doppelklick/s ausführen. Das erscheint mir die wesentlich einfachere Lösung zu sein, insbesondere was Änderungen in der Preisliste angeht, für die Auswertung/Übertragung sehe ich keine gravierenden Unterschiede.
Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Ausgefüllte Felder in andere Tabelle übertragen?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgefüllte Felder in andere Tabelle übertragen?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread