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
Wo ist die Excel Datei ?
Und bitte: beschränke die Menge Code.
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?
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.
Hallo Peter,
dein Namensvetter meinte nur, dass du im falschen Unterforum gepostet hast. War ein wenig burschikos ausgedrückt.
Hallo Peter,
Zitat: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:
Hallo Peter,
(08.04.2019, 14:05)Käpt\n Blaubär schrieb: [ -> ]... 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
Hallo Uwe,
... das weiß ich jetzt doch nicht mehr. Ich führe keine Strichlisten, weder über meine,
noch über Aktivitäten anderer.
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
Funktioniert leider nicht.
