Thema Datum  Von Nutzer Rating
Antwort
07.10.2016 14:57:43 Gast17877
NotSolved
Blau VBA Copy Paste Formulas until Zeile =""
 07.10.2016 19:20:37 Gast22041
Solved
10.10.2016 11:02:36 Gast92093
Solved

Ansicht des Beitrags:
Von:
Gast22041		 Datum:
07.10.2016 19:20:37		 Views:
574		 Rating:
     
Antwort:
 Nein
Thema:
VBA Copy Paste Formulas until Zeile =""

Hallo Du,

nachdem ich nicht weis, wie komplex deine Formeln besser im Einzelschritt mit relativen Formelbezug.

Zwischen Test() und Tast() kannste dir noch x-andere Varianten ausdenken.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Sub Test()
'einfach statisch
Dim x As Long
    
   For x = 5 To 10
      Range("U" & x).FormulaR1C1 = Range("U4").FormulaR1C1
      Range("V" & x).FormulaR1C1 = Range("V4").FormulaR1C1
      Range("W" & x).FormulaR1C1 = Range("W4").FormulaR1C1
   Next x
    
End Sub
 
Sub Tast()
'komplex gesteuert
Dim rngA As Range, rngX As Range
 
   'Quelle 1. Eingabe mit Formel im Abstand 5 Zellen
   Set rngA = Range("P4")
   '1 ab
   Set rngX = rngA.Offset(1)
   Do
      'versorgen
      rngX.Offset(, 5).FormulaR1C1 = rngA.Offset(, 5).FormulaR1C1
      rngX.Offset(, 6).FormulaR1C1 = rngA.Offset(, 6).FormulaR1C1
      rngX.Offset(, 7).FormulaR1C1 = rngA.Offset(, 7).FormulaR1C1
      '1 ab
      Set rngX = rngX.Offset(1)
      'leer?
      If rngX.Value = "" 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:
WYSIWYG-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
07.10.2016 14:57:43 Gast17877
NotSolved
Blau VBA Copy Paste Formulas until Zeile =""
 07.10.2016 19:20:37 Gast22041
Solved
10.10.2016 11:02:36 Gast92093
Solved