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
Rot Makro einfügen
04.05.2016 14:34:29 punikaa
NotSolved
04.05.2016 16:17:18 Gast99795
NotSolved

Ansicht des Beitrags:
Von:
punikaa
Datum:
04.05.2016 14:34:29
Views:
808
Rating: Antwort:
  Ja
Thema:
Makro einfügen

Super, vielen Dank jetzt funktioniert es! :) 

Aber wenn ich schon dabei bin, hätte ich noch eine kleine Frage. Habe jetzt noch zusätzlich einen Button eingebaut der eine neue Zeile in "April_2016" hinzufügen soll. Die Tabelle ist so aufgebaut, dass jede Zelle einen punktierten Rahmen hat und jede zweite Zeile beginnend mit Zeile 4 noch zusätzlich mit diesem Punkt-Muster gefüllt ist (6,25 Grey war das glaub ich). Die 4.Zeile ist gefüllt, die 5 nicht usw.
Habe folgendes Makro geschrieben, welches soweit auch funktioniert, nur ist der Rahmen nicht vorhanden und ich weiß nicht genau wie ich es mache dass eben nur jede zweite Zeile gefüllt ist bzw. jede ungerade Zeile.. habe überlegt mit Step2 aber irgendwie hat es nicht geklappt...
LG Moni

Sub Zeile_Einfügen()

Dim letzte As Integer

letzte = 5

Do                                          'letzte Zeile der Liste ermitteln
    If Cells(letzte, 1) <> "" Then          'linker Wert in der Zelle ungleich 0, also wenn etwas in der Zelle steht
    letzte = letzte + 1
    End If
Loop Until Cells(letzte, 1) = ""            'wiederholt solange bis in der Zelle nichts mehr drin steht

letzte = letzte

Worksheets("April_2016").Rows(letzte).Insert

Worksheets("April_2016").Cells(letzte, 1) = Worksheets("April_2016").Cells(letzte, 1) + letzte - 2

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
Rot Makro einfügen
04.05.2016 14:34:29 punikaa
NotSolved
04.05.2016 16:17:18 Gast99795
NotSolved