Thema Datum  Von Nutzer Rating
Antwort
19.08.2014 09:13:14 tohra
Solved
Blau Range mit Variable multiplizieren,
 19.08.2014 11:33:14 Gast98815
NotSolved
19.08.2014 13:33:31 tohra
Solved

Ansicht des Beitrags:
Von:
Gast98815		 Datum:
19.08.2014 11:33:14		 Views:
610		 Rating:
     
Antwort:
  Ja
Thema:
Range mit Variable multiplizieren,		 
Option Explicit

Public Sub Test()
  
  Dim i As Long
  
  With Range("A1:D4")
    
    'Beispieldaten generieren
    For i = 1 To .Cells.Count
      .Cells(i).Value = i
    Next
    
    'Multiplikator in einem temporär genutzten Bereich setzen
    .Offset(.Rows.Count + 1).Value = 5
    .Offset(.Rows.Count + 1).Copy
    
    .PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
    
    .Offset(.Rows.Count + 1).Delete xlShiftUp
    
  End With
  
End Sub

Wenn du sehen willst, was jede einzelne Zeile bewirkt (wenn es nicht schon durch den Kommentar klar sein sollte), dann führe den Code im Einzelschritt (F8) aus.

 

PS: Select brauchst du nicht und solltest du sogar vermeiden, da es die Abarbeitung verlangsamt.

d.h. aus

oWS_mal4.Range("S1").Select
Selection.Copy

wird

oWS_mal4.Range("S1").Copy

Das ist so einfach, dass sollte jeder können. ;)

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.08.2014 09:13:14 tohra
Solved
Blau Range mit Variable multiplizieren,
 19.08.2014 11:33:14 Gast98815
NotSolved
19.08.2014 13:33:31 tohra
Solved