Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen am Ende einfügen und gewisses Format übernehmen
26.11.2020 19:18:50 BigT
NotSolved
27.11.2020 09:32:00 Mase
NotSolved
27.11.2020 09:39:16 Gast49420
NotSolved
30.11.2020 18:35:58 BigT
NotSolved
30.11.2020 18:52:27 Mase
NotSolved
30.11.2020 19:19:36 BigT
NotSolved
30.11.2020 19:28:03 Mase
NotSolved
30.11.2020 23:08:28 BigT
NotSolved
01.12.2020 06:23:37 Mase
NotSolved
01.12.2020 08:17:40 Gast56513
NotSolved
01.12.2020 09:51:10 BigT
NotSolved
01.12.2020 11:23:41 Mase
****
Solved

Ansicht des Beitrags:
Von:
BigT
Datum:
26.11.2020 19:18:50
Views:
994
Rating: Antwort:
  Ja
Thema:
Zeilen am Ende einfügen und gewisses Format übernehmen

Hallo,

ich habe bereits folgenden Code und würde diesen gerne erweitern. Und zwar soll durch klicken eines entsprechenden Buttons am Ende der Tabelle 5 Zeilen eingefügt werden und diese sollen das Format (nicht den Inhalt) der Zeilen 6 - 11 übernehmen.

Sub Zeile()
 With ActiveSheet
    .Unprotect Password:="xxx"
    .Rows(.Range("A65535").End(xlUp).Row).Insert Shift:=xlDown
    .Protect Password:="xxx", AllowFiltering:=True
 End With
End Sub
 
 
Habe es bereits mit dem Aufzeichnen versucht, aber da kommt leider nicht wirklich was sinnvolles bei raus...
 
Vielen Dank im Voraus!

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
Rot Zeilen am Ende einfügen und gewisses Format übernehmen
26.11.2020 19:18:50 BigT
NotSolved
27.11.2020 09:32:00 Mase
NotSolved
27.11.2020 09:39:16 Gast49420
NotSolved
30.11.2020 18:35:58 BigT
NotSolved
30.11.2020 18:52:27 Mase
NotSolved
30.11.2020 19:19:36 BigT
NotSolved
30.11.2020 19:28:03 Mase
NotSolved
30.11.2020 23:08:28 BigT
NotSolved
01.12.2020 06:23:37 Mase
NotSolved
01.12.2020 08:17:40 Gast56513
NotSolved
01.12.2020 09:51:10 BigT
NotSolved
01.12.2020 11:23:41 Mase
****
Solved