Excell, eingabe in den bestimmten Zellen

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,
habe folgendes Problem:
Ich muss jeden Tag in eine Excell Tabelle div. Messergebnisse eingeben. Habe schon programmiert das beim Oeffnen des Tabellenblattes erste freie Zelle in Spalte A selektiert wird. Dann soll ich in die erste fuenf untere Zellen eingabe machen und dan automatisch um fuenf Zellen zurueck springen in die Spalte B und nach eingabe in den fuenf Zellen der Spalte B in di Spalte C springen…
Vielen Dank

#2

Hallo Lida,

Habe schon programmiert das beim Oeffnen des
Tabellenblattes erste freie Zelle in Spalte A selektiert wird.

Wo ist der Code?

Dann soll ich in die erste fuenf untere Zellen eingabe machen
und dan automatisch um fuenf Zellen zurueck springen in die
Spalte B und nach eingabe in den fuenf Zellen der Spalte B in
di Spalte C springen…

in das Modul von „DieseArbeitsmappe“

Option Explicit
'
Private Sub Workbook\_Open()
Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Range("A1").Select
End Sub
'
Private Sub Workbook\_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Tabelle1" Then
 If Intersect(Target, Range("A1:B5")) Is Nothing Then Exit Sub
 Target.Offset(1, 0).Select
 If ActiveCell.Row = 6 Then ActiveCell.Offset(-5, 1).Select
End If
End Sub

Reinhard