Thema Datum  Von Nutzer Rating
Antwort
04.12.2014 10:06:27 Max
NotSolved
Blau Zeile n+1 mal kopieren
 04.12.2014 11:11:03 Gast64057
NotSolved

Ansicht des Beitrags:
Von:
Gast64057		 Datum:
04.12.2014 11:11:03		 Views:
638		 Rating:
     
Antwort:
  Ja
Thema:
Zeile n+1 mal kopieren		 
Option Explicit

Sub MeinMakroTest()
Dim i As Long, j As Long, anz As Long

For i = 5 To 99
   If Not IsEmpty(Cells(i, 12)) Then
      On Error Resume Next
      anz = Cells(i, 12).Value
      On Error GoTo 0
      Select Case anz
         Case 0
            anz = 1
         Case Is > 0
            anz = anz + 1
         Case Else
            Call MsgBox("unerlaubter Wert!", _
            vbCritical Or vbDefaultButton1, _
            "Fehler in Zeile" & CStr(i))
            Exit Sub
      End Select
      For j = 1 To anz
      Range(Cells(i, 1), Cells(i, 5)).Copy _
         Destination:=Sheets("Test Makro").Range("A" & _
         Sheets("Test Makro").Range("A1000000").End(xlUp).Row + 1)
      Next j
   End If
   anz = 0
Next i
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
04.12.2014 10:06:27 Max
NotSolved
Blau Zeile n+1 mal kopieren
 04.12.2014 11:11:03 Gast64057
NotSolved