mit untenstehendem Code kopiere ich per cmdButton1 den Inhalt der Tabelle1 in Tabelle2 und lasse mir das auf der UF1 in einem Spreadsheet zeigen.....klappt auch bestens.........jedoch möchte ich das Ganze noch begrenzen:
Private Sub cmdButton1_Click()
Application.ScreenUpdating = False
Dim strTabellenname As String
Dim bFound As Boolean
Dim ws As Worksheet
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Set wsQuelle = Sheets("Tabelle1")
strTabellenname = "Tabelle2"
For Each ws In Worksheets
If ws.Name = strTabellenname Then
bFound = True
Set wsZiel = ws
End If
Next
If Not bFound Then
Set wsZiel = Worksheets.Add
wsZiel.Name = strTabellenname
End If
wsQuelle.Range("A2:I100").Copy
wsZiel.Range("A16:I86").PasteSpecial Paste:=xlPasteValues
UF1.Show
End Sub
Es soll nur der Inhalt der Spalten A,B,C,E und I kopiert werden....und auch nur die Datensätze, bei denen der Wert in Spalte H = B ist.
Wer kann mir da helfen?
Danke
Peter S.