Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String
Dim GeldI As Currency 'Diese Dim möchte ich gerne festlegen!!'
Range("G3") = GeldI
Range("G3").Activate
ActiveCell.Offset(0, 0) = GeldI
Range("C84").Activate
a = 0
Do Until ActiveCell.Value = ""
If ActiveCell.Value > "" Then
Selection.EntireRow.Insert
a = a + 1
If a = 10 Then ActiveCell.Offset(3, 0).Select
ActiveCell.Offset(3, 0).Select
Else
BlattVorAufbau
End If
Loop
End Sub
Hallo!!!
Einen schönen guten Morgen!
Nach längerer Zeit hab ich mal wieder ein Prob.
Möchte eine Dim Anweißung für ein ganzes Programm, das über 3 Tabellenblätter
geht festlegen!!!
Wie muß ich das machen?
Bitte um Hilfe, bin noch nicht so erfahren!
Vielen Dank für Eure bemühungen!!!
gruß Volker