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:
952
Rating: Antwort:
  Ja
Thema:
VBA Excel Schleife

Hallo Leute....

Versuche eine Excelberechnung zu automatisieren.

Folgendes Problem:

Im Moment sieht das ganze so aus:

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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar