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:
718		 Rating:
     
Antwort:
  Ja
Thema:
Range mit Variable multiplizieren,
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

?
1
2
oWS_mal4.Range("S1").Select
Selection.Copy

wird

?
1
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:
Rich Text Editor, ctl00_Content_editor1



  • 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