Wert von nein auf ja ändern

[JJürgen]

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

[schauan]

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

[Gast 123]

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

[JJürgen]

Vielen Dank Andre, das ist perfekt

Gruß Jürgen

[RPP63]

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

[Case]

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...

[RPP63]

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! 

[Gast 123]

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