Hallo,
mit folgendem Code makiere ich bestimmte Zellen in einem Tabellenblatt.
Public Sub Bereich_markieren()
Dim rngBereich As Range
Dim Zelle As Range
Dim TeamG As String
Dim TeamSch As String
Dim TeamV As String
Dim TeamSchw As String
Dim KW As Integer
TeamG = "Ge"
TeamSch = "Fr"
TeamV = "Ver."
TeamSchw = "Sch"
Sandsorte = ActiveSheet.Name
If InStr(Sandsorte, "F34") Then
Sandsorte = "F34"
End If
KW = Range("A9").Value
For Each Zelle In Range("B1:B50")
If Zelle.Value = TeamG Or Zelle.Value = TeamSch Or Zelle.Value = TeamSchw Or Zelle.Value = TeamV Then
If rngBereich Is Nothing Then
Set rngBereich = Cells(Zelle.Row, 1).Resize(, 17)
Else
Set rngBereich = Union(rngBereich, Cells(Zelle.Row, 1).Resize(, 17))
End If
End If
Next
rngBereich.Select
wie kann ich die markierten Zellen jetzt in eine andere Exceldatei (Jahresueberblick.xlsm) in das Tabellenblatt (Daten) in die erste leere Zeile kopieren ?
mit freundliche Grüßen
Uli