Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
to 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.
to 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.
to 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.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to 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.
to 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.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to 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
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Bestellung/Spalten: nur bestimmte Spalten kopieren teufelchenbs 14 297 25.11.2016, 20:55
Letzter Beitrag: schauan
  Teiltext auslesen und neu wiedergeben Farulon 3 96 03.11.2016, 08:03
Letzter Beitrag: Farulon
  letzter Eintrag oski 2 70 23.10.2016, 13:40
Letzter Beitrag: Wilfried Höttl
  Zellen nur einmal wiedergeben waldemarrrrr 6 152 15.10.2016, 16:39
Letzter Beitrag: schauan
  FRAGE:excel letzte belegte zellen koordinate ermitteln CherryX 8 259 16.09.2016, 10:43
Letzter Beitrag: steve1da
  Letzte Leere Zelle Auswählen und Wert eintragen (VBA) e2Ki 7 333 14.09.2016, 09:49
Letzter Beitrag: e2Ki
Brick Zellen nach Eintrag bereinigen BIGE.l.f.e 20 678 12.09.2016, 08:06
Letzter Beitrag: BIGE.l.f.e
  Excel VBA: Letzte Zelle in bestimmten Bereich befüllen Goleo 4 270 17.08.2016, 13:49
Letzter Beitrag: Crazy Tom
  Gleitkommazahlen in Zelle befreien, erste bis letzte Ziffer, Trim() ohne Funktion! Vince440 4 286 26.07.2016, 12:37
Letzter Beitrag: Vince440
  MessageBox VBA Zelleninhalt wiedergeben DavidHans 4 372 15.07.2016, 07:58
Letzter Beitrag: Crazy Tom

Gehe zu:


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