Auflistung anzeigen

Hallo zusammen,
ich habe da mal 2. Probleme.
Problem Nr. 1:
Wenn ich eine Excel Datei starte, möchte ich das bis auf 2 bestimmte Excel Blätter (Maske und Bearbeitung) alle anderen Blätter gelöscht werden(egal wie sie heißen).Dann soll von einer anderen Excel Datei die auf einem Server liegt die kompletten Excel Blätter geladen werden mit allen Werten und die in die aktuelle Tabelle gespeichert werden.
Problem Nr. 2:
Ich lade schon die Namen der Excelblätter ein und habe auf diese Namen ein Listenfeld erzeugt. Nun möchte ich, dass wenn das Listenfeld ein Excelblatt gewählt wird,dass die Werte von diesen Blatt die unter A1 bis A50 liegen angezeigt werden sollen, unter dem Listenfeld.
Beispiel Listenfeld liegt auf B4 auf dem Blatt Maske Dann sollen die Werte in B6 bis B56 angezeigt werden.
Über Hilfe Stellung würde ich mich freuen
Gruß Björn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Problem Nr. 1:

31.07.2019 09:30:09

Nepumuk

AW: Problem Nr. 1:

31.07.2019 09:58:53

Strijbos

AW: Problem Nr. 1:

31.07.2019 10:03:51

Nepumuk

AW: Problem Nr. 1:

31.07.2019 10:14:23

Strijbos

AW: Problem Nr. 1:

31.07.2019 10:16:38

Strijbos

AW: Problem Nr. 1:

31.07.2019 10:21:01

Nepumuk

AW: Problem Nr. 1:

31.07.2019 14:57:34

Strijbos

AW: Problem Nr. 2:

31.07.2019 16:50:49

Nepumuk

AW: Problem Nr. 2:

02.08.2019 10:38:13

Strijbos

OT: Call-Anweisung

31.07.2019 12:52:44

{Boris}

AW: OT: Call-Anweisung

31.07.2019 14:01:23

Nepumuk

OK, danke - verstanden!

31.07.2019 14:17:00

{Boris}

AW: OK, danke - verstanden!

31.07.2019 16:06:05

Nepumuk

;-))

31.07.2019 16:07:37

{Boris}

Option Explicit Private Sub Workbook_Open() Dim objWorksheet As Worksheet Dim objWorkbook As Workbook With Application .DisplayAlerts = False .ScreenUpdating = False End With For Each objWorksheet In Worksheets Select Case objWorksheet.Name Case "Maske", "Bearbeitung" 'do nothing Case Else Call objWorksheet.Delete End Select Next Application.DisplayAlerts = True Set objWorkbook = Workbooks.Open(Filename:= _ "C:\Users\kafflm\Desktop\Mappe2.xlsx", _ UpdateLinks:=3, ReadOnly:=True) Call objWorkbook.Worksheets.Copy(After:=Worksheets(2)) Call objWorkbook.Close(SaveChanges:=False) Application.ScreenUpdating = True End Sub

Hallo Björn,
in das Modul der Tabelle "Bearbeitung" (Rechtsklick auf den Tabellenreiter - Code anzeigen)

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim objWorksheet As Worksheet
    Dim lngEmptyRow As Long
    If Target.Column = 1 Then
        If Not IsEmpty(Target.Value) Then
            For Each objWorksheet In ThisWorkbook.Worksheets
                With objWorksheet
                    If .Name = Target.Value Then
                        lngEmptyRow = ThisWorkbook.Worksheets.Count
                        Call Range(Cells(lngEmptyRow, 1), Cells(Rows.Count, 1)).Clear
                        Call .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy( _
                            Destination:=Cells(lngEmptyRow, 1))
                        Cancel = True
                        Set objWorksheet = Nothing
                        Exit For
                    End If
                End With
            Next
        End If
    End If
End Sub

Das Makro reagiert auf den Doppelklick auf einen der Tabellennamen. Ich hoffe, ich habe dich dahingehend richtig verstanden.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread