Hilfe zu kompliziert & komlex! Geht auch Schleife?
12.10.2004 09:51:56
tvd
Ich habe folgendes Problem; ich habe in einem Tabellenblatt ("Leistungen") zwei Spalten die dann in das Blatt ("Ausdruck") übertragen werden sollen, nur wenn die dazugehörige Checkbox aktiviert ist.
Geshiet bislang durch einen Button. Muss aber nicht.
Desweiteren sollen sie in das Blatt ("Ausdruck") in die jeweils nächstfreie Zeile kopiert/eingetragen werden. Ich habe da zwar eine Ansatzlösung gefunden, da das aber bis über 200 reihen *2 Spalten werden können, wollte ich mal wissen ob man meinen Ansatz auch als Schleife realisieren kann. Wär über jede Hilfe sehr dankbar!
Vielen Dank im voraus schonmal!
Hier die Codeauszüge:
Tabelle4 (Leistungen)
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then Makro1
If CheckBox2.Value = True Then Makro2
If CheckBox3.Value = True Then Makro3
If CheckBox4.Value = True Then Makro4
If CheckBox5.Value = True Then Makro5
End Sub
Modul1
Sub Makro1()
Sheets("Leistungen").Select
Range("C1").Select
Range("C1").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Leistungen").Select
Range("D1").Select
Range("D1").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Sub Makro2()
Application.ScreenUpdating = False
Sheets("Leistungen").Select
Range("C2").Select
Range("C2").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Leistungen").Select
Range("D2").Select
Range("D2").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
Sub Makro3()
Sheets("Leistungen").Select
Range("C3").Select
Range("C3").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Leistungen").Select
Range("D3").Select
Range("D3").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Sub Makro4()
Sheets("Leistungen").Select
Range("C4").Select
Range("C4").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Leistungen").Select
Range("D4").Select
Range("D4").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Sub Makro5()
Sheets("Leistungen").Select
Range("C5").Select
Range("C5").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Leistungen").Select
Range("D5").Select
Range("D5").Activate
Selection.Copy
Sheets("Ausdruck").Select
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
