Thema Datum  Von Nutzer Rating
Antwort
19.09.2016 10:41:42 Alina
NotSolved
19.09.2016 11:58:29 Gast3869
NotSolved
19.09.2016 11:59:03 Gast32388
NotSolved
19.09.2016 12:48:37 Alina
NotSolved
Rot Autofill Variante
 19.09.2016 13:23:44 Gast76927
Solved
19.09.2016 13:30:19 Alina
NotSolved

Ansicht des Beitrags:
Von:
Gast76927		 Datum:
19.09.2016 13:23:44		 Views:
719		 Rating:
     
Antwort:
 Nein
Thema:
Autofill Variante		 
Sub TestIt()
Const c_START As String = "P2"               'Startzelle - Address
Const c_STEP As Long = 20                    'Blockgröße Zeilen

Const c_STOP As String = "P41"               'zB. "P41" =ab hier "Nicht mehr" - oder
                                             'zB. "xx" = letzte Zeile selbst finden

Dim rngBlock As Range, strStop As String

strStop = c_STOP

'prüfe c_STOP
On Error Resume Next
   Set rngBlock = Range(strStop)
   If rngBlock Is Nothing Then strStop = _
   Cells(Rows.Count, Range(c_START).Column).End(xlUp).Address
On Error GoTo 0

'1 Block
Set rngBlock = ActiveSheet.Range(c_START).Resize(c_STEP)

'Solange < Stop-Zeile
Do While rngBlock.Cells(1).Row < Range(strStop).Row
   rngBlock.Cells(1).Autofill rngBlock, 0
   Set rngBlock = rngBlock.Offset(c_STEP)
Loop

End Sub

LG

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
19.09.2016 10:41:42 Alina
NotSolved
19.09.2016 11:58:29 Gast3869
NotSolved
19.09.2016 11:59:03 Gast32388
NotSolved
19.09.2016 12:48:37 Alina
NotSolved
Rot Autofill Variante
 19.09.2016 13:23:44 Gast76927
Solved
19.09.2016 13:30:19 Alina
NotSolved