Althir81
Lieutenant
- Registriert
- Dez. 2002
- Beiträge
- 537
Hallo Community,
habe folgenden Sachverhalt:
• Die Werte Tau und Bi werden vom User im Blauen-Bereich untereinander eingetragen.
• Die Werte müssen dann so oft wie in "Anz Zeilen" oben Rechts im gelben Bereich eingefügt werden
• Dann müssen die Werte, Zylinder- Kern, Mantel, Kal. Mitteltemp, Platte- Kern, Mantel in die jeweilige Zeile kopiert werden bevor er die nächsten Werte kopiert...
Das ganze hinter einem Button...
Ich bräuchte gerade nur mal einen Denkanstoss, hab einfach den Kopf gerade zu voll und finde den Einstieg nicht...
Danke & Gruß
Oliver
Dies jetzt dann noch in einer Schleife Anzahl aus Zelle B17...
Wäre echt denkbar, bin dem ganzen eigentlich soweit mächtig heute macht nur mein Kopf dicht...
habe folgenden Sachverhalt:
• Die Werte Tau und Bi werden vom User im Blauen-Bereich untereinander eingetragen.
• Die Werte müssen dann so oft wie in "Anz Zeilen" oben Rechts im gelben Bereich eingefügt werden
• Dann müssen die Werte, Zylinder- Kern, Mantel, Kal. Mitteltemp, Platte- Kern, Mantel in die jeweilige Zeile kopiert werden bevor er die nächsten Werte kopiert...
Das ganze hinter einem Button...
Ich bräuchte gerade nur mal einen Denkanstoss, hab einfach den Kopf gerade zu voll und finde den Einstieg nicht...
Danke & Gruß
Oliver
Ergänzung ()
Code:
Sub Test2()
'
' Test2 Makro
'
'
Range("C21").Select
Selection.Copy
Range("I8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D21").Select
Application.CutCopyMode = False
Selection.Copy
Range("I9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I10").Select
Application.CutCopyMode = False
Selection.Copy
Range("E21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I11").Select
Application.CutCopyMode = False
Selection.Copy
Range("F21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I12").Select
Application.CutCopyMode = False
Selection.Copy
Range("G21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I13").Select
Application.CutCopyMode = False
Selection.Copy
Range("I21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I14").Select
Application.CutCopyMode = False
Selection.Copy
Range("J21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
End Sub
Dies jetzt dann noch in einer Schleife Anzahl aus Zelle B17...
Wäre echt denkbar, bin dem ganzen eigentlich soweit mächtig heute macht nur mein Kopf dicht...
Zuletzt bearbeitet: