103 Aufrufe
Gefragt in Tabellenkalkulation von

Hallo

Durch die Hilfe hier im Forum habe ich mir eine Tabelle und makros zusammengebastelt .

Jetzt komme ich leider nicht mehr weiter.

Die Makros

Private Sub T20_Click()
ActiveCell.Value = T20.Caption
 ActiveCell = T20.Name
    ActiveCell.Offset(0, 1) = 60
T20.BackColor = 255
ActiveCell.Interior.ColorIndex = 3 'Färbt Zelle Rot

End Sub

Private Sub T19_Click()
ActiveCell.Value = T19.Caption
ActiveCell = T19.Name
 ActiveCell.Offset(0, 1) = 57
T19.BackColor = 5753088 ' Command Button Farbe Schwarz
ActiveCell.Interior.ColorIndex = 4 ' Farbe für Zelle Grün '
End Sub

Private Sub T18_Click()
ActiveCell.Value = T18.Caption
 ActiveCell.Offset(0, 1) = 54
T18.BackColor = 255   '  Command Button Farbe  Rot'
ActiveCell.Interior.ColorIndex = 3 'Färbt Zelle Rot
End Sub

erfüllen ihren Zweck

jetzt suche ich nach einer Erweiterung , die mir ermöglicht das nach eingabe des ersten Zellenpaares

automatisch das zweite Zellenpaar rechts daneben aktiv wird und danach das dritte Zellenpaar aktiv wird

anschliesend sollte ein Zeilenumbruch in die nächste Zeile erfolgen

Das ganze soll Eingabefehler vermeiden

wer hat eine Idee

T20 60 T20 60 T19 57
T19 57 T18 54 T19 57
T18 54 D20 60 D20 60

MfG

5 Antworten

0 Punkte
Beantwortet von m-o Profi (14.2k Punkte)
Hallo,

in welcher Spalte beginnt denn das letzte Zellenpaar?

Gruß

M.O.
0 Punkte
Beantwortet von
Hallo
Das erste Zellenpaar beginnt in B 26 . Das zweite in D26 und das dritte in F 26 danach Zeilenumbruch in nächste Zeile
MfG
0 Punkte
Beantwortet von m-o Profi (14.2k Punkte)

Hallo,

hier beispielhaft der Code für den Button T18

Private Sub T18_Click()
With ActiveCell
   .Value = T18.Caption
   .Offset(0, 1) = 54
   .Interior.ColorIndex = 3 'Färbt Zelle Rot
   If .Column < 6 Then
     .Offset(0, 2).Select
    Else
     .Offset(1, -4).Select
   End If
End With
T18.BackColor = 255   '  Command Button Farbe  Rot'

End Sub

Die Codes für die anderen Buttons musst du entsprechend anpassen.

Gruß

M.O.

0 Punkte
Beantwortet von
Hallo

Makro funktioniert super

besten Dank für die Hilfe

MfG
0 Punkte
Beantwortet von gftfhjghddh Einsteiger (5 Punkte)
Thanks for the information. It really helped me!!
...