Clever-Excel-Forum

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!

Zitat: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

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

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

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

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.

Zitat: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.

Hi,

(18.03.2015, 13:55)BadDog81 schrieb: [ -> ]Nach der MsgBox kommt immer die Fehler meldung 400

Fehler 400 weist meistens auf andere Tabellenblatt-Namen hin.

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:

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

Und dann das Makro so gemacht:

Zitat: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

BadDog81

BoskoBiati

BoskoBiati

chris-ka

BadDog81

Rabe

BadDog81