Hallo,
ich habe folgendes Makro,
wie kann ich erreichen, dass nur die Sichtbaren Zellen kopiert und übertragen werden
und nur festgelegte Steuerelemente und diese auch vor dem Übertrag wieder gelöscht werden.?
Danke im Voraus für die Mühe.
Gruss
Matthias
Sub Übertrag_Montagefirma()
Application.ScreenUpdating = False
' Tabelle: Terminplan
' Tabelle: Montagefirma
Const Blatt1 = "Terminplan" ' Source
Const Blatt2 = "Montagefirma" ' Ziel
Dim I As Integer
Dim iAnz As Integer
Dim letzte As Long
Worksheets("Montagefirma").Activate
letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Montagefirma").Range("A1:AA" & letzte).Clear
Worksheets("Montagefirma").Range("A1").Activate
Sheets(Blatt1).Activate
Range("A1").Select
iAnz = 0
I = 0
Do Until I = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Text = Range("B" & 7).Text Then
Selection.EntireRow.Copy
Sheets(Blatt2).Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets(Blatt1).Select
ActiveCell.Offset(1, 0).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
I = I + 1
Loop
MsgBox "Es wurden " & iAnz & " Sätze übertragen"
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
|