Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 385
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Twansen vom 17.05.2017, 09:14 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Makro auf Knopfdruck Daten anzeigen

 (247 Hits)

Hallo liebe Technik-Freunde,

ich habe ein Problem und meine VBA Kenntnisse sind mehr als eingerostet seit
Schulzeiten ;-)

Ich habe eine Tabelle die Vorlaufzeiten für verschiedene Parteien beinhalten. Da die
Spaltenaufteilung anhand der Kalenderwochen vorgenommen wird ist die Tabelle
dementsprechend lang.

Gerne würde ich auf Knopfdruck nur die Daten für eine Partei anzeigen lassen um
den Überblick zu behalten (auf eienm neuen Tabellenblatt). Könnt ihr mit da weiter
helfen? Braucht ihr mehr Infos?

Danke Euch & Grüße,
Twansen


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Nighty__ vom 17.05.2017, 10:21 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Twansen .-)

Ein Beispiel!

Gruss Nighty

Tabelle1 Spalte A ist mit eindeutigen merkmalen
Tabelle1 Spalte A eine beliebige Zelle Selektieren
Die Selektierte Zelle wird dem Autofilter übergen und gefiltert und Kopiert nach Tabelle2.

Einzufügen
Alt+F11/Projectexplorer/Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 1 And Target.Row > 1 Then
        Worksheets("Tabelle2").Cells.Clear
        Worksheets("Tabelle1").Range("A1").AutoFilter Field:=1, Criteria1:=Target
        Worksheets("Tabelle1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle2").Range("A1")
        Worksheets("Tabelle1").Range("A1").AutoFilter
    End If
    Application.EnableEvents = True
End Sub


Antwort noch nicht bewertet




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Tue Oct 17 18:17:53 2017