VBA verallgemeinern

[Peter.Lustig]

Hallo,

habe Makros in VBA erstellt und für 5 verschiedene Zeilen jeweils einzeln ein Makro hinzugefügt.
Nun möchte ich die Form verallgemeinern weis dennoch nicht wie genau.

Gr Peter

[snb]

Wo ist die Excel Datei ?

Und bitte: beschränke die Menge Code.

[Käpt'n Blaubär]

Hallo Peter,

... und wann bist Du bereit, Deine Fragen dort zu fragen, wo sie hingehören?
Das wäre dann das Excel- Forum, weder Das ExceltreffenForum, noch dieses hier.

Es muß wohl wahnsinnig schwer sein, das zu begreifen, oder erwartest  Du Einzelunterricht?

[Peter.Lustig]

Sorry bin hier neu. Habe nach einem Excel-Forum gesucht und bin eben auf dieses gestoßen.
Gibt schlimmeres... Werde meinen Account am besten direkt löschen.

[WillWissen]

Hallo Peter,

dein Namensvetter meinte nur, dass du im falschen Unterforum gepostet hast. War ein wenig burschikos ausgedrückt.

[Käpt'n Blaubär]

Hallo Peter,

Sorry bin hier neu. Habe nach einem Excel-Forum gesucht und bin eben auf dieses gestoßen.
Gibt schlimmeres... Werde meinen Account am besten direkt löschen.

das mußt Du nicht tun, Du mußt nur lesen .... sonst landest Du noch auf dem Damenklo  :19:

[Kuwer]

Hallo Peter,

... und wann bist Du bereit, Deine Fragen dort zu fragen, wo sie hingehören?
Das wäre dann das Excel- Forum, weder Das ExceltreffenForum, noch dieses hier.

welches Forum meintest Du mit "noch dieses hier"?
Da als Beispieldatei ein Worddokument angehängt wurde und auch sonst nichts auf Excel deutete, verschob ich das Thema aus dem Excel- in das Wordforum.

Gruß Uwe

[Käpt'n Blaubär]

Hallo Uwe,

... das weiß ich jetzt doch nicht mehr. Ich führe keine Strichlisten, weder über meine,
noch über Aktivitäten anderer.

[Steffl]

Hallo Peter,

mal als Ansatz für die LK´s

Code:

Sub LK()
   Dim lngZahl As Long
  
   lngZahl = Application.InputBox("Geben Sie eine Zahl zwischen 1 und 5 ein", Type:=1)
  
   Select Case lngZahl
      Case 1 To 5
         Worksheets("LK (0)").Copy after:=ThisWorkbook.Worksheets.Count
         ActiveSheet.Name = "Blatt " & lngZahl & " LK"
         With Worksheets("Blatt " & lngZahl & " LK")
            With .OLEObjects("TextBoxFeld1")
               .LinkedCell = "Werkzeugübersicht!C" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld2")
               .LinkedCell = "Werkzeugübersicht!E" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld3")
               .LinkedCell = "Werkzeugübersicht!I" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld4")
               .LinkedCell = "Werkzeugübersicht!K" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld5")
               .LinkedCell = "Werkzeugübersicht!T" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld6")
               .LinkedCell = "Werkzeugübersicht!S" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld7")
               .LinkedCell = "Werkzeugübersicht!R" & lngZahl + 21
            End With
            With .OLEObjects("TextBoxFeld8")
               .LinkedCell = "Werkzeugübersicht!B" & lngZahl + 21
            End With
         End With
   End Select
End Sub

[Peter.Lustig]

Funktioniert leider nicht.