Im Makro mehrere Tabellen angeben
14.12.2004 15:46:34
Harry
ich habe noch mal eine Frage.
Ich habe ein super Makro bekommen.
Dieses Makro möchte ich für mehrere Tabellen Seiten anwenden.
Muß ich jetzt in einem Modul für alle Seiten die selben Makros schreiben oder gibt es da noch eine andere Möglichkeit?
(Tabelle3, Tabelle4, Tabelle5 usw.)
Danke schon mal für die Hilfe.
Gruß
Harry
Sub Makro3()
Sheets("Tabelle3").Select
Dim C As Integer
C = Range("N3").End(xlToLeft).Column
If Not IsEmpty(Cells(3, C)) Then C = C + 1
If Cells(3, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Range("N3").Copy Cells(3, C)
End If
Sheets("Tabelle4").Select
C = Range("N3").End(xlToLeft).Column
If Not IsEmpty(Cells(3, C)) Then C = C + 1
If Cells(3, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Range("N3").Copy Cells(3, C)
End If
Sheets("Tabelle5").Select
C = Range("N3").End(xlToLeft).Column
If Not IsEmpty(Cells(3, C)) Then C = C + 1
If Cells(3, 12) <> "" Then
MsgBox "Reihe ist voll"
Else
Range("N3").Copy Cells(3, C)
End If
End Sub