Zeilensprung in VBA so das das Makro wieder ausgeführt wird

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe ein Problem und zwar möchte ich einen Zeilensprung durch führen so das das Makro weiter läuft. Hir habe ich mal die Zeilen die ich für mein Makrogeschrieben habe.

Public X As Variant
Public c As Variant

Public Sub Zeitanzeigen()

If Worksheets(„Tabelle1“).Range(„B2“).Value = 1 Then c = True Else c = False

Worksheets(„Tabelle1“).Range(„A2“).Value = X
If c = True Then X = Time
Selection.NumberFormat = „hh:mm:ss“
If c = False Then Range(„A2“).Value = Empty

End Sub

So um zu konkretiesieren was ich möcht. Ich möcht einfach in die nächste Zeile springen und es soll gewartet werden das z.B. B3 eine 1 geschrieben wird. Also ein Automatesiertes Makro wenn man es nennen kann. wenn irgentwas mit meinem Makro nicht stimmt bitte schreiben, habe VBA vor ungefähr 6 Jahren das letzte mal verwendet. Achja ich verwende Offic 2007.

Für eure bemühungen danke ich im Vorraus.

Für eure

#2

Hallo Schwunghammer…

hab nicht genau verstanden was du suchst, hab aber eine Ahnung. Wenn in einer Spalte eine 1 eingetragen wird soll in einer anderen Spalte der selben Zeile die Uhrzeit eingetragen werden. Das geht dann so:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim watchCol As Integer
Dim writeCol As Integer

'Spalte deren Änderung beobachtet wird
watchCol = 2
'Spalte in die die Zeit geschrieben wird
writeCol = 1

If Target.Column = watchCol Then
If Target.Value = 1 Then
Cells(Target.Row, writeCol) = Time
Cells(Target.Row, writeCol).NumberFormat = „hh:mm:ss“
Else
Cells(Target.Row, writeCol) = Empty
End If
End If
End Sub

Wenn due im VBA Editor bist:
Codes des Arbeitsblattes, das beobachtet werden soll, anzeigen lassen.
Rechts direkt obehalb der Eingabfensters kann man dann die Events aussuchen, die man anpassen möchte. Hier das Event Change. Dort dann den Code von oben eintragen.

Viel Erfolg!

Dirk.P

#3

Vielen Dank Dirk.P das du mir geholfen hast. ^^