Tabelle ausfüllen mittels makro
14.07.2006 21:48:58
MatthiasLE
möchte gern eine immer gleich-bleibende Tabelle ausfüllen, mit unterschiedlichen Werten aus Tabellenblatt 2,Tabellenblatt3 etc. ...
Die Tabellenblätter sind nach Jahren sortiert, und möchte in Tabellenblatt 1 jedes Jahr durch eingabe des Jahres ausfüllen.
Kann mir jemand da helfen. Für ein Jahr habe ich diese Makro aufgezeichnet, aber ohne Jahreseingabe.
Sub Schaltfläche1_Click()
'
' Schaltfläche1_Click Makro
'
'
Selection.Delete
Range("C5").Select
End Sub
Sub Jahr()
' Jahr Makro
Sheets("Tabelle2").Select
Range("B3:B10").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("C3").Select
ActiveSheet.Paste
Range("C11").Select
Sheets("Tabelle2").Select
Range("H3:H10").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("I3:I10").Select
ActiveSheet.Paste
End Sub