Excel: Hilfe bei Makro-Erstellung (Visual Basic) benötigt

Technik

Letzter Beitrag von benda Vor 11 Jahren

2 Beiträge

2 Benutzer

0 Reactions

220 Ansichten

RSS

storge

Joined: 09.08.2005

Posts: 22.472

09.12.2015, 15:30 0

Hallo zusammen,

ich habe leider keine große Ahnung von Excel und muss eine Studie auswerten, bei der mir fünf Einzelmakros vermutlich deutlich weiterhelfen würden.

Ich habe eine Tabelle mit 84 Zeilen und jeweils fünf Spalten. Im Prinzip ist mein Vorgehen einfach. Ich möchte fünf verschiedene Tasten (nennen wir sie A, B, C, D, E) mit einem Makro belegen:
Bei Taste A: "Gehe in die nächste Zeile, springe in Spalte 1 und erhöhe den vorgefundenen Wert um 1."
Bei Taste B: "Gehe in die nächste Zeile, springe in Spalte 2 und erhöhe den vorgefundenen Wert um 1."
Bei Taste C: "Gehe in die nächste Zeile, springe in Spalte 3 und erhöhe den vorgefundenen Wert um 1."
Bei Taste D: "Gehe in die nächste Zeile, springe in Spalte 4 und erhöhe den vorgefundenen Wert um 1."
Bei Taste E: "Gehe in die nächste Zeile, springe in Spalte 5 und erhöhe den vorgefundenen Wert um 1."

Könnt ihr mir weiterhelfen?

Herzlichen Dank!

Feedback & Erlaubis

Antwort

Zitat

1 reply

benda

Joined: 01.05.2006

Posts: 294

09.12.2015, 16:10 0

Sub a()

Cells(ActiveCell.Row + 1, 1).Activate
Cells(ActiveCell.Row, 1) = Cells(ActiveCell.Row, 1) + 1

End Sub

Sub b()

Cells(ActiveCell.Row + 1, 2).Activate
Cells(ActiveCell.Row, 2) = Cells(ActiveCell.Row, 2) + 1

End Sub

Sub c()

Cells(ActiveCell.Row + 1, 3).Activate
Cells(ActiveCell.Row, 3) = Cells(ActiveCell.Row, 3) + 1

End Sub

Sub d()

Cells(ActiveCell.Row + 1, 4).Activate
Cells(ActiveCell.Row, 4) = Cells(ActiveCell.Row, 4) + 1

End Sub

Sub e()

Cells(ActiveCell.Row + 1, 5).Activate
Cells(ActiveCell.Row, 5) = Cells(ActiveCell.Row, 5) + 1

End Sub

Antwort

Zitat