Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel Schleife
 06.05.2012 14:18:46 Att
NotSolved
06.05.2012 14:20:02 Att
NotSolved
06.05.2012 16:05:44 Brumms
NotSolved
06.05.2012 19:48:00 Till
*****
NotSolved

Ansicht des Beitrags:
Von:
Att		 Datum:
06.05.2012 14:18:46		 Views:
2162		 Rating:
     
Antwort:
  Ja
Thema:
VBA Excel Schleife

Hallo Leute....

Versuche eine Excelberechnung zu automatisieren.

Folgendes Problem:

Im Moment sieht das ganze so aus:

?
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
34
Sub direkt()
'
' direkt Makro
'
    Dim i As Integer
For i = 1 To 10
 
'Erste Zeile
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "HDR"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "1.0"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "NOID"
     
'zu Spalte A nächste Zeile springen
    ActiveCell.Offset(1, -2).Range("A1").Select
 
'Zweite Zeile
     
   '
    ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=direkthilfe!R[2]C[1]"
    ActiveCell.Offset(1, 0).Range("A1").Select
     
'zu Spalte A nächste Zeile springen
    ActiveCell.Offset(1, -2).Range("A1").Select
     
    Next i
     
End Sub

 

das Blatt "direkthilfe" sieht so aus, dass in spalte A bsw.:       1;1;1;1;2;2;3;3;4;4;4;4;4

ich brauche die erste Zeile fest, wie oben im Code und danach jeweils eine Zeile mit allen gleichen Zahlen in Spalte a

also hier im beispiel:

Spalte 1

1

1

1

1

Spalte 1

2

2

Spalte 1

3

3

usw.

 

Ich hoffe das ist einigermaßen verständlich.

 

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
Rot VBA Excel Schleife
 06.05.2012 14:18:46 Att
NotSolved
06.05.2012 14:20:02 Att
NotSolved
06.05.2012 16:05:44 Brumms
NotSolved
06.05.2012 19:48:00 Till
*****
NotSolved