automatisches Einfügen von Inputwerten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

habe irgendwie mal probiert die ersten 2 Schritte mit einem Makro aufzuzeichnen.. nur würde dies nun 99999 mal so weitergehen... bin langsam am verzweifeln ;-)
Zur Info ( in Tabelle 2 Spalte A habe ich die Inputwerte, in Spalte B sollten die Ergebnisse hineinkopiert werden) Inputzelle: Tabelle1 Zelle A1, Ergebniszelle: Tabelle 1 Zelle B1)
ActiveCell.FormulaR1C1 = "=Tabelle2!RC"
Range("B1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Tabelle1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Tabelle2!R[1]C"
Range("B1").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Hallo Michael,
versuch's mal hiermit:


Sub Daten_retten()
Dim rngQuelle As Range
Dim rngZiel As Range
Dim lngBasisWert As Long
'Hier die Angaben für deine Formelzelle eintragen
'Die Zelle, in welche die Daten (1-99999) eingetragen werden
'muss sich direkt links davon befinden!
Set rngQuelle = Workbooks("Mappe1.xls").Sheets("Tabelle1").Range("B1")
'Hier die Angaben für die Spalte angeben, in welche die
'Rechenergebnisse geschrieben werden sollen. Es muss eine Spalte
'mit 50000 Zeilen sein. Die anderen 49999 Ergebnisse kommen
'in die Spalte rechts daneben!
'Die Zellen über den Datenspalten (A1+B1) enthalten
'bereits vor Ausführung des Makros eine Überschrift
Set rngZiel = Workbooks("Mappe1.xls").Sheets("Tabelle2").Range("A2:A50001")
'Die ersten 49999 Werte abarbeiten
For lngBasisWert = 1 To 49999
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = lngBasisWert
'Excel rechnen lassen
Application.Calculate
'Ergebnis retten
rngZiel.Cells(50000, 1).End(xlUp).Offset(1, 0) = rngQuelle
Next 'lngBasisWert
'Den 50000sten Wert bearbeiten
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = 50000
'Excel rechnen lassen
Application.Calculate
'Ergebnis in die unterste Zelle der ersten Spalte schreiben
rngZiel.Cells(50000, 1) = rngQuelle
'Zielspalte um 1 nach rechts versetzen
Set rngZiel = rngZiel.Offset(0, 1)
'Die restlichen 49999 Werte abarbeiten
For lngBasisWert = 50001 To 99999
'Ausgangswert in Zelle schreiben
rngQuelle.Offset(0, -1) = lngBasisWert
'Excel rechnen lassen
Application.Calculate
'Ergebnis retten
rngZiel.Cells(50000, 1).End(xlUp).Offset(1, 0) = rngQuelle
Next 'lngBasisWert
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

automatisches Einfügen von Inputwerten

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisches Einfügen von Inputwerten

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread