Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA verallgemeinern
#1
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


Angehängte Dateien
.docx   VBA Code.docx (Größe: 13,52 KB / Downloads: 6)
Antworten Top
#2
Wo ist die Excel Datei ?

Und bitte: beschränke die Menge Code.
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#3
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?
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#4
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.
Antworten Top
#5
Hallo Peter,

dein Namensvetter meinte nur, dass du im falschen Unterforum gepostet hast. War ein wenig burschikos ausgedrückt.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#6
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:
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#7
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
Antworten Top
#8
Hallo Uwe,

... das weiß ich jetzt doch nicht mehr. Ich führe keine Strichlisten, weder über meine,
noch über Aktivitäten anderer.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#9
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
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#10
Funktioniert leider nicht. Confused
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste