Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro - Letzte Spalten Eintrag Wiedergeben
#1
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
Antworten Top
#2
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.
Antworten Top
#3
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.
Antworten Top
#4
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.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
Antworten Top
#5
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.
Antworten Top
#6
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.
Antworten Top
#7
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste