Thema Datum  Von Nutzer Rating
Antwort
01.10.2015 08:28:55 Raphi
NotSolved
03.10.2015 01:51:40 Günther
NotSolved
03.10.2015 20:46:04 Gast79463
NotSolved
03.10.2015 20:51:14 Gast79463
NotSolved
Rot Row().Insert
21.10.2015 18:46:54 Raphi
NotSolved

Ansicht des Beitrags:
Von:
Raphi
Datum:
21.10.2015 18:46:54
Views:
780
Rating: Antwort:
  Ja
Thema:
Row().Insert

Hallo Zusammen,

vielen Dank für die beiden Antworten und entschuldigt die verspätete Antwort.

Das Vorhaben ist es in Spalte B ab der Zeile 12 auf Inhalt zu prüfen.

Wenn die B12 leer ist, kann auch das Makro abgebrochen werden. Wenn B12 befüllt ist soll eine Zeile B13 mit den Eigenschaften von B12 eingefügt werden.

Der Test auf "befüllt" bzw. nicht "befüllt" müsste somit in einem Interval erfolgen, oder ?

Meine bisherige Version Ist leider nicht zielführend ;(

Ich hoffe auf eure Expertise ;)

Sub Bericht()
Dim i As Integer
Dim s As Integer
 
s = 2
i = 12
 
Do While Sheets("P4_Bericht").Cells(i, 2).Value = ""
Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
i = i + 1
Loop
End Sub

Viele Grüße,

Raphi


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
01.10.2015 08:28:55 Raphi
NotSolved
03.10.2015 01:51:40 Günther
NotSolved
03.10.2015 20:46:04 Gast79463
NotSolved
03.10.2015 20:51:14 Gast79463
NotSolved
Rot Row().Insert
21.10.2015 18:46:54 Raphi
NotSolved