Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excell-Automatische Sheetwahl per Makro

Excell-Automatische Sheetwahl per Makro
23.12.2002 12:48:19
Gio
Hallo zusammen,

ich versuche einen Arbeitsplan zu erstellen und hänge wie folgt.

Per Makro lasse ich einen Wert kopieren und in den Monat(Pro Monat ein Blatt) einfügen. Dementsprechend sieht das Makro aus.

Sub Mittagschicht()
'
' Macro8 Macro
' Macro recorded 17.12.02 by Gio
'
Sheets("Code").Select
Range("A2").Select
Selection.Copy
Sheets("Januar").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Soweit Ok....nur...was gebe ich anstelle von "Januar" ein, damit alle Macros auf den ausgewählten Monat(Blatt)funktionieren. So, springt er logischerweise immer zu "Januar".

Danke und Gruss
Gio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excell-Automatische Sheetwahl per Makro
23.12.2002 13:20:29
Manfred W
Leg dir eine Userform mit einer Listbox und einem Commandbutton
an. und hinterleg nachfolgenden Code das funktioniert!

Private Sub ListBox1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
'Range("A1").Select
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i_Erster As Integer
Dim i_Letzter As Integer
Dim i_Aktuell As Integer
Dim i_Nächster As Integer
Dim s_buffer As String

With UserForm7.ListBox1
If .ListCount = 0 Then Exit Sub
i_Erster = 0
i_Letzter = .ListCount - 1
For i_Aktuell = i_Erster To i_Letzter
For i_Nächster = i_Aktuell + 1 To i_Letzter
If .List(i_Aktuell) > .List(i_Nächster) Then
s_buffer = .List(i_Nächster)
.List(i_Nächster) = .List(i_Aktuell)
.List(i_Aktuell) = s_buffer
End If
Next i_Nächster
Next i_Aktuell
End With

End Sub

Private Sub UserForm_Initialize()
Dim Blatt As Object
For Each Blatt In ThisWorkbook.Sheets
ListBox1.AddItem Blatt.Name
Next

End Sub

Anzeige
Re: Excell-Automatische Sheetwahl per Makro
23.12.2002 15:15:07
Gio
Dankeeeeeeeeeeeee :-)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige