VisualBasic - Excel (samurize)

samurize
Gast

« am: 27.12.04, 22:05:36 »

Hallo.

Ich habe in Excel insgesamt 5 Tabellenblätter:

1.: Hauptseite
2.: Test1
3.: Test2
4.: Test3
5.: Test4

Dann habe ich auf der Hauptseite ein Kombinationsfeld erstellt, das die Begriffe "Test1", "Test2", "Test3" und "Test4" beinhaltet.

Jetzt kommt mein Problem:

Ich möchte, dass wenn ich auf "Test1" klicke, der Inhalt des Tabellenblattes "Test1" auf der Hauptseite erscheint und genauso mit den anderen Blättern.

Wie kann ich das über VisualBasic programmieren?

Vielen Dank für Eure Hilfe,

Moderator informieren

Nighty
Gast

Re: VisualBasic - Excel

« Antwort #1 am: 28.12.04, 00:37:20 »

Private Sub ComboBox1_Click()
with combobox1
Worksheets(.list(.listindex)).Copy after :=Worksheets("Hauptseite").
end with
End Sub

.list(.listindex) ist das ausgewählte des Kombinationsfeld

Oder schaust in die Hilfe, Copy markieren und F1 drücken

Gruß

Moderator informieren

samurize
Gast

Re: VisualBasic - Excel

« Antwort #2 am: 28.12.04, 10:32:05 »

Hallo.

Hab´ alle Variantionen ausprobiert - leider funktioniert es nicht.
Muss ich noch einen Bereich auf der "Hauptseite" auswählen, wo es den Inhalt hinkopieren soll?

Moderator informieren

Nighty
Gast

Re: VisualBasic - Excel

« Antwort #3 am: 28.12.04, 19:22:53 »

Habs jetzt mal durchprobiert, so gehts:

Code: [Auswählen]

Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim ws1 As Worksheet

Set ws1 = Worksheets("Hauptseite")

With ComboBox1
    If .ListCount > 0 And .ListIndex <> 0 Then
        Set ws = Worksheets(.ListIndex + 1)
        ws.Range("xx:yy").Copy ws1.Range("xx:yy")
    End If
End With

End Sub


Private Sub Worksheet_Activate()
Dim x As Integer

With ComboBox1
  .Clear
  .AddItem "Tabelle auswählen..."
  
  For x = 2 To Worksheets.Count
    .AddItem "Tabelle" & x-1
  Next
  
  .ListIndex = 0
End With

End Sub

Das füllen is egal wo das machst habs mal Hauptseite_activate geworfen dann wirds aktualisiert wenn Tabellen dazukommen

Gruß

Moderator informieren

samurize
Gast

Re: VisualBasic - Excel

« Antwort #4 am: 28.12.04, 19:41:53 »

Danke, funktioniert prima!

***
Ich muss bei Gelegenheit doch mal intensiver VisualBasic pauken...

Moderator informieren

VisualBasic - Excel

Antworten zu VisualBasic - Excel:

Re: VisualBasic - Excel

Mehr zu VisualBasic - Excel

« Einer Eingabezelle soll ein Wert zuaddiert werden		Programmierung in C++ »