Thema Datum  Von Nutzer Rating
Antwort
13.05.2013 18:09:17 goremand
NotSolved
Blau Werte in andere Zellen kopieren
 13.05.2013 19:14:04 Gast40704
NotSolved
14.05.2013 10:49:30 goremand
NotSolved
14.05.2013 11:08:44 Gast40704
NotSolved
14.05.2013 11:16:15 goremand
Solved

Ansicht des Beitrags:
Von:
Gast40704		 Datum:
13.05.2013 19:14:04		 Views:
871		 Rating:
     
Antwort:
  Ja
Thema:
Werte in andere Zellen kopieren		 
Option Explicit

Sub Demo()
  
  Const C_MAX As Long = 100000
  Const C_STEPSIZE As Long = 41
  
  Dim vnta() As Variant
  Dim i As Long
  
  n = Fix(C_MAX / C_STEPSIZE)
  
  ReDim vnta(1 To n, 1 To 1)
  
  With Tabelle1
    For i = 1 To n
      vnta(i, 1) = .Cells(1 + (i - 1) * C_STEPSIZE, "A").Value
    Next
  End With
  
  Tabelle2.Cells.Resize(n, 1).Value = vnta
  
  Erase vnta
  
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.05.2013 18:09:17 goremand
NotSolved
Blau Werte in andere Zellen kopieren
 13.05.2013 19:14:04 Gast40704
NotSolved
14.05.2013 10:49:30 goremand
NotSolved
14.05.2013 11:08:44 Gast40704
NotSolved
14.05.2013 11:16:15 goremand
Solved