Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

1 Button Sechs Button ansprechen

1 Button Sechs Button ansprechen
13.01.2006 19:50:23
Heinz
Hallo Leute
Habe in einer Stundenliste 6 Tab.Blätter für jeden Arbeiter eines.
Nun habe ich 6 Button1 zum Stundeneinfügen.
Könnte man vdas nicht vereinfachen ?
Zum Beispiel im Tab.Blatt "Schichtkalender" Button6 der in allen anderen Tab.Blätter die Stunden einfügt.
Habe unten von 2 Kollegen den Code eingefügt.
Könnte mir da jemand helfen ?
Danke Heinz
Private Sub CommandButton1_Click()
Dim intCol As Integer, lngRow As Long
'--------Stunden_Transponieren-----------
With Sheets("Horvath St.")
If Not IsNumeric(.Range("A7")) Or .Range("A7") = 0 Then Exit Sub
If .Range("A7") > 6 Then
intCol = ((.Range("A7") - 6) * 9) - 3
lngRow = 42
Else
intCol = (.Range("A7") * 9) - 3
lngRow = 6
End If
End With
With Sheets("Schichtplan")
.Range(.Cells(lngRow, intCol), .Cells(lngRow + 30, intCol)).Copy
End With
Sheets("Horvath St.").Range("N10").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

Private Sub CommandButton1_Click()
Dim intCol As Integer, lngRow As Long
'--------Stunden_Transponieren-----------
With Sheets("Zimmermann E.")
If Not IsNumeric(.Range("A7")) Or .Range("A7") = 0 Then Exit Sub
If .Range("A7") > 6 Then
intCol = ((.Range("A7") - 6) * 9) - 5
lngRow = 42
Else
intCol = (.Range("A7") * 9) - 5
lngRow = 6
End If
End With
With Sheets("Schichtplan")
.Range(.Cells(lngRow, intCol), .Cells(lngRow + 30, intCol)).Copy
End With
Sheets("Zimmermann E.").Range("N10").PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1 Button Sechs Button ansprechen
14.01.2006 00:33:12
DieterB
Hallo Heinz,
ja du könnest den Code in ein allgemeines Modul legen,
dann in jedes Blatt einen Button, mit dem du den Code aufrufts,
und dann mit with activsheet arbeitest.
Gruß DieterB
AW: 1 Button Sechs Button ansprechen
14.01.2006 02:04:04
Heinz
Hallo Namensvetter,
du könntest auch so was in denen Code einbauen:
In der Zelle C1 steht der Name des Mitarbeiters = name des Blattes

Sub Blattauswahl()
Dim BNahme As String
BName = Range("C1").Value
Worksheets(BName).Activate
Range("A1").Select
End Sub

und bei einem Klick auf die Schaltfläche wird das entsprechende Blatt ausgewählt.
Viele Grüße
Heinz
Anzeige
AW: 1 Button Sechs Button ansprechen
14.01.2006 07:45:21
Heinz
Hallo Heinz
Werde es heute nachmittag mal ausprobieren.
Recht herzlichen Dank für Deine Hilfe.
Gruß Heinz
AW: 1 Button Sechs Button ansprechen
14.01.2006 07:43:17
Heinz
Hallo Dieter
Recht herzlichen Dank für Deine Hilfe.
Gruß Heinz

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige