Makro - Letzte Spalten Eintrag Wiedergeben

[BadDog81]

Hallo Excel Freund

Ich Brauche ein Mokro wo ich von zelle K10:K129 denn Letzten eingetragenen Werd in der zelle I7 wieder gibt

hier mal eine Makro: Was Rot ist müsste die Berechnung rein!

Sub Sparbuch_1_Übertrag()
   Dim byWert As Byte
   byWert = MsgBox("Wichtig" & vbCrLf & "Sind sie sicher, das sie Sparbuch 1 Übertragen wollen?", 4, "Schalterabfrage")
   If byWert = 6 Then
       ActiveSheet.Unprotect Password:="Geheim"
       Range("I7").Value = Range("K129").Value
       Range("E10:J129").ClearContents
       ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
   End If
End Sub

Kann mir da jeman Bitte Hälfen?

MfG BD

[BoskoBiati]

Hallo,

als Idee:

Code:

Sub Sparbuch_1_Übertrag()
   Dim loWert As long
dim loLetzte as long
   loWert = MsgBox("Wichtig" & vbCrLf & "Sind sie sicher, das sie Sparbuch 1 Übertragen wollen?", 4, "Schalterabfrage")
   If loWert = 6 Then
       ActiveSheet.Unprotect Password:="Geheim"
       loletzte=cells(rows.count,11).end(xlup).row
       [color=#ff3333]Range("I7") = cells(loletzte[/color],11)
       Range("E10:J129").ClearContents
       ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
   End If
End Sub

[BoskoBiati]

Hallo,

als Idee:

Code:

Sub Sparbuch_1_Übertrag()
   Dim loWert As long
dim loLetzte as long
   loWert = MsgBox("Wichtig" & vbCrLf & "Sind sie sicher, das sie Sparbuch 1 Übertragen wollen?", 4, "Schalterabfrage")
   If loWert = 6 Then
       ActiveSheet.Unprotect Password:="Geheim"
       loletzte=cells(rows.count,11).end(xlup).row
       Range("I7") = cells(loletzte,11)
       Range("E10:J129").ClearContents
       ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
   End If
End Sub

[chris-ka]

moin,

Code:

Sub Sparbuch_1_Übertrag()
   If MsgBox("Wichtig" & vbCrLf & "Sind sie sicher, das sie Sparbuch 1 Übertragen wollen?", 4, "Schalterabfrage") = vbYes Then
       ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True, Userinterfaceonly:=True
       Range("I7").Value = IIf(Range("K129").Value = "", Range("K129").End(xlUp).Value, Range("K129").Value)
       Range("E10:J129").ClearContents
   End If
End Sub

[BadDog81]

ich habe die Ergänzung eingefügt und Probiert,

Nach der MsgBox kommt immer die Fehler meldung 400

Gibt es da noch mehr möglichkeiten?

Die zelle I7 wurde zwar gelöscht aber keinen wert eingetragen,
Und da nacht lief das Makro auch nicht zu ende.

loLetzte = Cells(Rows.Count, 11).End(xlUp).Row
       Range("I7") = Cells(loLetzte, 11)

Ich möchte auch nur von denn Zellen K10:K129 denn letzt Eingegebenen Wert ermitteln.

[Rabe]

Hi,

Nach der MsgBox kommt immer die Fehler meldung 400

Fehler 400 weist meistens auf andere Tabellenblatt-Namen hin.

[BadDog81]

Danke für eure Hilfe ich Habe doch eine Lösung gefunden!

Ich habe per Formel in Zelle K8 die letzte beschriebene Zelle Anzeigen lassen:

Zelle K8:

=WENN(K10;VERWEIS(9^99;K10:K129);"")

Und dann das Makro so gemacht:

Sub Sparbuch_1_Übertrag()
   Dim byWert As Byte
   byWert = MsgBox("Wichtig" & vbCrLf & "Sind sie sicher, das sie Sparbuch 1 Übertragen wollen?", 4, "Schalterabfrage")
   If byWert = 6 Then
       ActiveSheet.Unprotect Password:="Geheim"
       Range("I7").Value = Range("K8").Value
       Range("E10:J129").ClearContents
       ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
   End If
End Sub

Selbst wenn ich die Zelle K8 nicht Bräuchte kann man Zelle und schrieft in der gleichen Frabe machen.

Nur dumm das ich erst nicht selber darauf gekommen bin!

MfG BD