Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.02.2014 17:26:48 |
Uli_G |
|
|
gefilterte Liste in jeweils neues Tabellenblatt kopieren |
18.02.2014 18:38:05 |
H27 |
|
|
|
18.02.2014 19:08:04 |
Tom |
|
|
Von:
H27 |
Datum:
18.02.2014 18:38:05 |
Views:
825 |
Rating:
|
Antwort:
|
Thema:
gefilterte Liste in jeweils neues Tabellenblatt kopieren |
Hi, Tom
einfach&geschmacklos so
Option Explicit
Sub KopiereFilterZeile()
Sheets("Tabelle1").Activate
Rem du musst selber wissen, warum du bei diesem Befehl
Rem die letzte gefüllte Zeile nicht erfasst
ActiveSheet.Range("A2:Z" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
Sheets.Add After:=Sheets(Sheets.Count)
If Not Blattname Then GoTo errorhandler
ActiveSheet.Range("A2").PasteSpecial
[A2].Select
Application.CutCopyMode = False
Exit Sub
errorhandler:
Sheets("Tabelle1").Activate
[A2].Select
Application.CutCopyMode = False
End Sub
Private Function Blattname() As Boolean
Dim v
Dim tbName As String
On Error GoTo errorhandler
tbName = Trim(InputBox("neuer Tabellenname : ", _
"Abfrage ändern oder bestätigen", ActiveSheet.Name))
If Len(tbName) < 1 Then GoTo errorhandler
ActiveSheet.Name = tbName
Blattname = True
On Error GoTo 0
Exit Function
errorhandler:
On Error GoTo 0
Application.DisplayAlerts = Not Application.DisplayAlerts
ActiveSheet.Delete
Application.DisplayAlerts = Not Application.DisplayAlerts
v = MsgBox("kann Tabelle nicht umbenennen - Makro neu starten !", vbCritical, "Nix do")
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.02.2014 17:26:48 |
Uli_G |
|
|
gefilterte Liste in jeweils neues Tabellenblatt kopieren |
18.02.2014 18:38:05 |
H27 |
|
|
|
18.02.2014 19:08:04 |
Tom |
|
|