Registriert seit: 16.03.2015
Version(en): 2010
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
Registriert seit: 13.04.2014
Version(en): 365, 2019
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
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 13.04.2014
Version(en): 365, 2019
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
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 14.04.2014
Version(en): Office 2013/2016/2019/365
18.03.2015, 13:31
(Dieser Beitrag wurde zuletzt bearbeitet: 18.03.2015, 13:31 von 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
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
Registriert seit: 16.03.2015
Version(en): 2010
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.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
18.03.2015, 14:08
(Dieser Beitrag wurde zuletzt bearbeitet: 18.03.2015, 14:08 von Rabe.)
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.
Registriert seit: 16.03.2015
Version(en): 2010
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
|