Thema Datum  Von Nutzer Rating
Antwort
13.03.2016 14:16:52 Tony
NotSolved
13.03.2016 16:17:56 Gast92792
NotSolved
13.03.2016 16:31:06 Tony
NotSolved
Blau Gleichlange Bereiche
 14.03.2016 06:53:56 Gast92792
NotSolved

Ansicht des Beitrags:
Von:
Gast92792		 Datum:
14.03.2016 06:53:56		 Views:
704		 Rating:
     
Antwort:
  Ja
Thema:
Gleichlange Bereiche		 
Sub RngDoIt()
Dim Rng As Range
'number of
Dim x As Long  'rows
Dim z As Long  'spacing
Dim a As Long  'begin
Dim e As Long  'limit

x = 85   'certain rows
x = x - 1 'in area
z = 4

a = 4
e = 1300

'doit
Debug.Print "area", "cells", "columns", "rows"

Set Rng = Range(Range("B" & a), Range("L" & a + x))
Do
   'doit or replace next lines
   Rng.Select
   Debug.Print Selection.Address(0, 0), Selection.Cells.Count, Selection.Rows(1).Cells.Count, Selection.Columns(1).Cells.Count
   '
   'next range
   Set Rng = Rng.Offset(x + z)
   If Rng.Cells(Rng.Cells.Count).Row > e Then Exit Do
Loop


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
13.03.2016 14:16:52 Tony
NotSolved
13.03.2016 16:17:56 Gast92792
NotSolved
13.03.2016 16:31:06 Tony
NotSolved
Blau Gleichlange Bereiche
 14.03.2016 06:53:56 Gast92792
NotSolved