Thema Datum  Von Nutzer Rating
Antwort
02.05.2016 09:54:31 punikaa
NotSolved
02.05.2016 12:36:09 Gast31268
NotSolved
03.05.2016 08:36:44 punikaa
NotSolved
03.05.2016 08:44:07 punikaa
NotSolved
03.05.2016 08:45:27 punikaa
NotSolved
03.05.2016 10:00:00 Gast43381
NotSolved
03.05.2016 10:48:22 punikaa
NotSolved
03.05.2016 12:59:15 Gast82090
NotSolved
03.05.2016 14:36:21 punikaa
NotSolved
03.05.2016 14:54:05 Gast67443
*****
Solved
04.05.2016 14:34:29 punikaa
NotSolved
Blau Makro einfügen
 04.05.2016 16:17:18 Gast99795
NotSolved

Ansicht des Beitrags:
Von:
Gast99795		 Datum:
04.05.2016 16:17:18		 Views:
1041		 Rating:
     
Antwort:
  Ja
Thema:
Makro einfügen

Hallo Moni! Also für deinen Button hätte ich folgenden Code genutzt. Dabei wird, wie bei dir, nur die vorletzte Zelle kopiert. Damit ist dort zwar der INhalt auch drin (könnte man aber auch löschen - siehe Kommentar ) aber auch das Format. Nur Aufpassen, klappt erst ab Zeile 3 (vorher verweist letzte -2 auf 0 bzw. -1 = Fehler). Das müsste man sonst allg. prüfen.  Und deinen do loop würde ich durch die eine Zeile ersetzen. Damit wird die letzte beschriebene Zelle gesucht und mit +1 ist man in der ersten freien. Ist kürzer und schnelle.  Schau mal bitte , ob das passt.VG

 

 

Sub Zeile_Einfügen()
 
Dim letzte As Integer
'ist die erste unbeschriebene Zeile
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
Worksheets("April_2016").Cells(letzte - 2, 1).Copy Worksheets("April_2016").Cells(letzte, 1)
'nächste Zeile würde den INhalt löschen
'Worksheets("April_2016").Cells(letzte , 1). clearcontents
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.05.2016 09:54:31 punikaa
NotSolved
02.05.2016 12:36:09 Gast31268
NotSolved
03.05.2016 08:36:44 punikaa
NotSolved
03.05.2016 08:44:07 punikaa
NotSolved
03.05.2016 08:45:27 punikaa
NotSolved
03.05.2016 10:00:00 Gast43381
NotSolved
03.05.2016 10:48:22 punikaa
NotSolved
03.05.2016 12:59:15 Gast82090
NotSolved
03.05.2016 14:36:21 punikaa
NotSolved
03.05.2016 14:54:05 Gast67443
*****
Solved
04.05.2016 14:34:29 punikaa
NotSolved
Blau Makro einfügen
 04.05.2016 16:17:18 Gast99795
NotSolved