kopieren mit if then
23.11.2004 13:34:31
giovanni
Makro macht Inhaltsverzeichnis und kopiert auch Überschriften und sonstige Daten her.
Wie kann ich Makro verändern, dass nur dann der Inhalt in Inhaltsverzeichnis kopiert wird, wenn in der jeweiligen Tabelle (von wo her kopiert wird) in Z1 "=wahr" steht
Vielen, vielen Dank
Gio
Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim I As Integer
ActiveSheet.Name = "Tabelle"
I = 4
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Tabelle" Then
?nur dann wenn in der jeweiligen Mappe in Zelle Z1="wahr" steht?
Cells(I, 1).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(I, 1), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
Cells(I, 3).Value = Tabelle.Cells(1, 2).Value
Cells(I, 4).Value = Tabelle.Cells(3, 2).Value
Range(Cells(I, 7), Cells(I, 57)).Value = _
Tabelle.Range(Tabelle.Cells(4, 16), Tabelle.Cells(15, 66)).Value
I = I + 1
End If
Next Tabelle
End Sub
Anzeige