Makros verbinden
05.01.2004 20:32:42
Rolf
Mit dem ersten Makro kopiere ich den Inhalt einer Zelle von "Mitglieder Alle" nach "Kasse Aktuell".
Leider fehlt der Farbhintergrund beim Ziel.
Das macht das 2. Makro.
Wie mache ich daraus eines?
----------------------------------------
Sub Mitglieder_alle_Kasse_Aktuell()
' Makro am 31.08.2003 von Rolf aufgezeichnet
Selection.Copy
With Sheets("Kasse Aktuell")
Dim Loletzte As Long
If Range("C189") = "" Then
Loletzte = .Range("C189").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 3)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Kasse Aktuell").Select
End Sub
--------------------------------------------------------------------
Sub Farbe()
' Farbe Makro
' Makro am 05.01.2004 von Rolf aufgezeichnet
Sheets("Kasse Aktuell").Select
Range("C11").Select
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub