Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
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
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code Vereinfachen

Code Vereinfachen
Heinz
Guten morgen im Forum
Könnte man den unteren Code nicht vereinfachen ?
Es geht um von Sheets "Schichtplan" die Werte in Sheets"Jänner" einzufügen,Transponieren & Nullwerte zu löschen.
Ich müsste für Jänner 8 mal den den Code schreiben. Dann für Februar usw..
Gruß
Heinz
If CheckBox1 Then 'Jänner Schicht A
ActiveSheet.Unprotect
Sheets("Schichtplan").Range("C6:C36").Copy
Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Jänner").Range("C500:AG500").ClearComments
Sheets("Jänner").Range("C500:AG500").Replace What:="0", Replacement:=""
ActiveSheet.Protect
Else
End If
If CheckBox1 Then 'Jänner Schicht B
ActiveSheet.Unprotect
ActiveSheet.Unprotect
Sheets("Schichtplan").Range("D6:D36").Copy
Sheets("Jänner").Range("C501").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Jänner").Range("C501:AG501").ClearComments
Sheets("Jänner").Range("C501:AG501").Replace What:="0", Replacement:=""
ActiveSheet.Protect
Else
End If
If CheckBox1 Then 'Jänner Schicht C
ActiveSheet.Unprotect
Sheets("Schichtplan").Range("E6:E36").Copy
Sheets("Jänner").Range("C502").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Jänner").Range("C502:AG502").ClearComments
Sheets("Jänner").Range("C502:AG502").Replace What:="0", Replacement:=""
ActiveSheet.Protect
Else
End If

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code Vereinfachen
02.09.2010 09:20:36
Heinz
Hallo Leute
Habe es doch selbst hingebracht.
Gruß
Heinz
If CheckBox1 Then 'Jänner Schicht A
ActiveSheet.Unprotect
Sheets("Schichtplan").Range("C6:K36").Copy
Sheets("Jänner").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("Jänner").Range("C500:AG508").ClearComments
Sheets("Jänner").Range("C500:AG508").Replace What:="0", Replacement:=""
ActiveSheet.Protect
Else
End If

AW: Code Vereinfachen
02.09.2010 09:26:36
Rudi
Hallo,
mal als Ansatz: 
Sub tt()
Dim iSchicht As Integer
If CheckBox1 Then
Sheets("Jänner").Unprotect
For iSchicht = 0 To 2
Sheets("Schichtplan").Range("C6:C36").Offset(, iSchicht).Copy
With Sheets("Jänner").Range("C500").Offset(iSchicht)
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
With .Resize(, 31)
.ClearComments
.Replace What:="0", Replacement:=""
End With
End With
Next i
Sheets("Jänner").Protect
End If
End Sub

Das geht bestimmt auch mit einem Code für alle Monate.
Gruß
Rudi
Anzeige
AW: Code Vereinfachen
02.09.2010 09:36:13
Heinz
Hallo Rudi
Einfach Perfekt !!
Recht herzlichen Dank.
Gruß
Heinz

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige