Code Hilfe

Hey Leute,
Dieser Code filtert mir den Gewünschten Datum, aber nur auf Tabellenblatt 1. ich will aber das er es im Hintergrund filtert und die Daten auf Tabellenblatt2 (Ergebnis) Kopiert und Tabellenblatt alle daten bleiben.
sagen wir mal ich will alle daten von 1.04.2008 - 24.04.2008 dann soll er mir alle auf Tabellenblatt2 zeigen, mit diesem Code macht er das ABER Kopiert es nicht auf TB2:

Private Sub CommandButton1_Click()
With Sheets("Datensaetze")
Sheets("Datensaetze").Rows(1).Copy Sheets("Ergebnis").cells(1, 1)
Sheets("Ergebnis").cells.ClearContents
Sheets("Ergebnis").Select
.Range("$A$1:$CC$14").AutoFilter Field:=31, Criteria1:=">=" & CLng(Me.Calendar1.Value)
.Range("$A$1:$CC$14").AutoFilter Field:=34, Criteria1:="

Private Sub btnSetBack_Click()
With Sheets("Datenseatze")
.Range("$A$1:$CC$4000").AutoFilter Field:=34
.Range("$A$1:$CC$4000").AutoFilter Field:=31
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Ergebnis_Click() With Sheets("Datensaetze") Sheets("Datensaetze").Rows(1).Copy Sheets("Ergebnis").cells(1, 1) Application.ScreenUpdating = False Sheets("Ergebnis").cells.ClearContents .Range("$A$1:$CC$14").AutoFilter Field:=31, Criteria1:=">=" & CLng(Me.Calendar1.Value) .Range("$A$1:$CC$14").AutoFilter Field:=34, Criteria1:="

Private Sub Ergebnis_Click() With Sheets("Datensaetze") Application.ScreenUpdating = False Sheets("Ergebnis").Cells.ClearContents .Range("$A$1:$CC$14").AutoFilter Field:=31, Criteria1:=">=" & CLng(Me.Calendar1.Value) .Range("$A$1:$CC$14").AutoFilter Field:=34, Criteria1:="

Aleykum Selam,
zu deiner ersten Frage: Ich weiss nicht genau was dein Programm noch alles macht und wie lange das insgesamt dauert und somit die Tabellen nicht bearbeitbar sind.
Mir ist aber keine Moeglichkeit bekannt wie man waherend ein VBA-Programm laeuft weiter auf die Tabellen zugreifen kann.
zu der zweiten Frage: Meine VBA-Kenntnisse sind zwar sehr begrenzt aber eventuell sollte es helfen wenn du bei Pastespecial das Paste:=xlValues wegnimmst. Ich bin mir aber nicht sicher, ob dann das Pastespecial noch funktioniert.
Aber probieren geht ueber studieren, nur an den/das Backup denken.
Ich lasse die Frage mal noch offen, vielleicht hat ja jemand eine Antwort auf deine erste Frage.
Gruß
Yusuf

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code Hilfe

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread