nach eingabe in Zelle, immer eine Zelle weiter!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo WernerB, danke das Du dich wieder gemeldet hast. Ich habe mal den Teil aus meiner Datei, (worauf es mir ankommt) ins Netz gestellt. Leider kann ich ich nicht die ganze Datei nehmen, da diese 8 MB gross ist. Worauf es mir hier ankommt.
1.)Wenn ich rechts den Button mit der 8 mit Kreis (Windings 2) drücke, so erscheint beim erstenmal der Buchstabe q das ist der Code für die 8 mit Kreis, beim zweiten mal usw. klappt es dann und das Sonderformat, egal ob 8 oder 1 usw. mit Kreis erscheint dann im Feld. Hast Du da evtl. eine Idee?
2.) Wenn ich jetzt die 8 mit Kreis mit einer normalen Zahl überschreiben will, erscheinen Zeichen aus der Schriftart Windings 2, gibt es hierfür auch eine gute Lösung?
3.) Für eine Kalle (Fehlwurf) rechter Button Kalle erscheint ein Kreuz in der jeweiligen Celle, hier geht der Kürser nicht weiter, auch nicht mit Enter. Kannst Du da noch was machen ?
1.) Es wäre toll wenn ich die Zahlen eins bis Neun über einen Button machen könnte, (siehe Sonderzahlen 8 mit Kreis usw.) da dann der Kürser Automatisch eine Celle weiter springt, ohne die Entertaste zu betätigen.
im voraus besten Dank für deine Arbeit
Werner
https://www.herber.de/bbs/user/20815.xls

Hallo Werner,
Dein Anfragebombardement beantworte ich wie folgt:
Zu 1.) generell solltest Du bei allen CommandButtons bei den Eigenschaften die TakeFocusOnClick-Eigenschaft auf "False" einstellen; damit wird nicht nur das unter Pos. 1 beschriebene Problem beseitigt..
Zu 2.): siehe Pos. 4.
Zu 3.): ändere Dein Kalle-Makro wie folgt:
Private Sub CommandButton2_Click() ' x in die Zelle Dim RaBereich As Range Set RaBereich = Range("B10:K10,B11:F11,B12:K12,B13:F13,B14:K14,B15:F15,B16:K16,B17:F17,B18:K18,B19:F19,B20:K20,B21:F21,B22:K22,B23:F23,B24:K24,B25:F25") If Intersect(ActiveCell, RaBereich) Is Nothing Then Exit Sub ' Abbruch, wenn Aktion nicht im Zielbereich With ActiveCell.Characters(Start:=1, Length:=2).Font .Name = "Arial" .Size = 14 End With If ActiveCell.Value = "X" Then ActiveCell.Value = "" Else ActiveCell.Value = "X" End If Set RaBereich = Nothing End Sub
Zu 4.): erstelle für jede Ziffer einen CommandButton. Der zugehörige Code könnte ungefähr so aussehen (Muster-Beispiel für die Ziffer "1"):


Private Sub CommandButtonN_Click()
'   "1" in die Zelle
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.Size = 14
End With
ActiveCell.Value = 1
End Sub

Gruß
WernerB.

Beliebteste Forumthreads (12 Monate)

nach eingabe in Zelle, immer eine Zelle weiter!

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

81 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nach eingabe in Zelle, immer eine Zelle weiter!

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

81 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread