Function und deren Gebrauch

Hi Communitiy
Über den Einsatz einer Function habe ich immer wieder mal was gelesen, die praktischen Beispiele beziehen sich aber immer auf eine Berechnung. Ich suche nach einer Möglichkeit, wie ich einen Standard-Ablauf in verschiedenen Prozeduren aufrufen kann, was - wie ich gelernt habe - mit einer GoTo Schleife nicht möglich ist.
Konkret will ich die Befehle unten in eine Function packen, welche ich dann in verschiedenen Prozeduren aufrufen werde. Das Sheet "Kalenderwoche" werde ich dann durch eine Variable ersetzen, je nachdem, woher die Function aufgerufen wird.
Hat da jemand eine Lösung?
Wie auch immer, auf jeden Fall wünsche ich euch allen einen schönen und erfolgreichen Tag.
Es grüsst euch Marc
Sheets("Kalenderwoche").Activate
ActiveSheet.Columns("A:E").Select
Selection.ClearContents
Worksheets("Blatt1").Columns(1).Copy Destination:=ActiveSheet.Columns(1)
Worksheets("Blatt1").Columns(4).Copy Destination:=ActiveSheet.Columns(2)
Worksheets("Blatt1").Columns(5).Copy Destination:=ActiveSheet.Columns(3)
Worksheets("Blatt1").Columns(8).Copy Destination:=ActiveSheet.Columns(4)
Worksheets("Blatt1").Columns(10).Copy Destination:=ActiveSheet.Columns(5)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marc,
1. Die Parameter (Variablen) Übergabe: Von irgendwo muss ja "Monat" kommen. Z.B. von einem Zellinhalt oder einer Benutzereingabe, denn neben "Monat" gibt es vielleicht "Woche", "Quartal" etc.
Also was können die Variablen für Werte annehmen? bzw. wie entstehen sie?
2. Wenn für jede Variable ein komplett anderer Code ausgeführt werden soll, erstellst du für jede eine Prozedur mit einem sprechenden Name und rufst diese bei Entsprechung auf, also z.B.

Select Case art
Case "Monat":Monats_Verarbeitung
Case "Woche":Wochen_verarbeitung
Case Else:Msgbox "Art ist nicht bekannt",vbExclamation
End Select

und dann für jede Einzelverarbeitung eine

Sub Monats_Verarbeitung()
Code der den Monat verarbeitet
End Sub
Sub Woche_Verarbeitung()
Code der die Woche verarbeitet
End Sub

3. Das mit dem Zurückspringen habe ich immer noch nicht verstanden. Natürlich kann nach dem Codeschnipsel von 2. noch Code folgen, der unabhängig von der Art immer ausgeführt werden soll.
4. Die Befehle .Select und .Activate sind in 99% aller Anwendungen überflüssig, wenn du die Referenzierung der Objekte, wie in deinem Code vollständig machst.
Die Beschreibungen was du erreichen willst, sind IMHO schon viel zu fixiert auf Codekonstrukt. Der umgekehrte Weg wäre besser, nämlich, dass du den genauen Ablauf aus der Sicht eines Benutzer beschreibst. Er macht das, dann soll das passieren, dann macht er ... und es geht weiter mit ... etc.
Gruess Hansueli

Sub Aufruf() Call CopyToSheet(Sheets("Kalenderwoche")) End Sub Sub CopyToSheet(shTarget As Worksheet) With shTarget 'Inhalte löschen .Columns("A:E").ClearContents 'Spalten 1,4,5,8 und 10 kopieren und einfügen Worksheets("Blatt1").Range("A:A,D:D,E:E,H:H,J:J").Copy .Range("A1") 'Zieltabelle auswählen .Activate End With End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread