Hallo Gemeinde, bin dabei mir ein Kassenprogramm zu basteln,
mein Ziel ist es mit einem Button Bezahlen, den Wert "nein" auf "ja" in der Tabelle Buchung zu ändern.
ID ist eindeutig und mit dem Namen verknüpft
Tabelle ist anbei und eine kleine Eklärung in der Tabelle Bon Kasse
wäre für Hilfe Dankbar, alleine gekomme ich es nicht hin
Vorab mal ein Dank
Gruß Jürgen
Hallöchen,
wenn Deine Buchungen kontinuierlich sind und mit 1 beginnen, ginge es z.B. so:
Code:
Sub Bezahlen()
Dim arrBezahlen, iCnt%
arrBezahlen = Worksheets("Bon Kasse").Range("L21:R38").Value
iCnt% = 1
With Sheets("Buchung").ListObjects("tblBuchung").DataBodyRange
Do While arrBezahlen(iCnt, 1) <> ""
.Cells(arrBezahlen(iCnt, 1), 10) = "ja"
iCnt = iCnt + 1
Loop
End With
End Sub
Halllo
diskreter Hinweis zu einem Schönheitsfehler in deinem Code. Application.DisplayAlerts = False
Dieser Befehl kommt in mehreren Makros vor, wird aber am Ende NICHT mehr auf True gesetzt.
Damit bleiben alle Excel Warnmeldungen abgeschaltet. Das sollte sicher nicht so sein, oder??
Kommt bei deinem Code irgendwo eine Warnmeldung vor. Bei normalem kopieren sicher nicht!
mfg Gast 123
Vielen Dank Andre, das ist perfekt
Gruß Jürgen
(16.04.2024, 16:19)Gast 123 schrieb: [ -> ]Application.DisplayAlerts = False
Dieser Befehl kommt in mehreren Makros vor, wird aber am Ende NICHT mehr auf True gesetzt.
Damit bleiben alle Excel Warnmeldungen abgeschaltet.
Moin und nö!
Die DisplayAlerts werden am Ende des Makros selbständig wieder eingeschaltet!
Gleiches gilt übrigens auch für ScreenUpdating.
Noch zwei Anmerkungen:
• ob das auch in 2003 so war, weiß ich nicht mehr, kannst Du aber ja nachprüfen, indem Du z.B. ein Blatt löschen willst.
• aus "ästhetischen" Gründen gebe ich Dir ja Recht, denn schließlich gibt es das "toxische" EnableEvents
Gruß Ralf
Moin,
ich würde es
immer einschalten, denn...
Zitat:
Wenn Sie diese Eigenschaft auf
False festlegen, legt Excel diese Eigenschaft auf
True fest, wenn der Code abgeschlossen ist,
es sei denn, Sie führen einen prozessübergreifenden Code aus.
Info...
Helfe mir auf die Sprünge:
Prozessübergreifend heißt hier, Aufruf einer weiteren Routine aus dem Makro heraus?
Dies wäre ja durchaus praktisch …
Spart ein weiteres False!
Hallo Kollegen
Upps, da habe ich wohl daneben gelegen, hätte es besser vorher mal testen sollen. Nimms gelassen.
Nun ja, man lernt immer noch dazu .... (Horst Schlämmer) Jetzt weisste Bescheid! Liebelein...
mfg Gast 123