VBA Code abändern

[Bernie]

Hallo zusammen,

brauche mal Hilfe.

Ich rufe per Button aus Tabelle "Start" z.B. die Tabelle "DowJones" auf, dort per Button starte ich nachfolgendes Makro (Teil des Makros):

Code:

Sub abf_indizes()
  Dim Spalte As Integer
  Dim startzeile As Integer
  Dim endzeile As Integer
  Dim numberws As Integer
  
  Call DeleteWorkSheets
  
  On Error GoTo Fehler
  
  Application.ScreenUpdating = False
  letztezeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row
  
  Tabellenblatt = InputBox("Welche Kurse sollen abfragen werden?" & vbCrLf & "DowJones, Dax, TecDax oder MDax?") '"???"
  Spalte = "4"                'oder mit InputBox("Nummer der Spalte in der sich die Aktienkürzel befinden")
  startzeile = "3"            'oder mit InputBox("Startzeilenummer der Aktienkürzel")
  endzeile = letztezeile      'oder mit InputBox("Endzeile der Aktienkürzel")
  
  For n = startzeile To endzeile
    
    x = Worksheets(Tabellenblatt).Cells(n, Spalte).Value

Ich möchte folgendes verändern und zwar die Zeile "Tabellenblatt = Inputbox". Für Inputbox möchte ich variabel den Namen der Tabelle vorgeben, die ich von Tabelle "Start" anwähle z.B. DowJones, Dax, TecDax oder MDax.

Kann mir jemand sagen wie und wo ich den Code abändern muss??? Danke im Voraus!!!

[atilla]

Hallo Bernie,

angenommen der Tabellenname steht in Zelle A1 der Tabelle Start, dann so:

Tabellenblatt = Sheets("Start").Range("A1")

[Steffl]

Hallo Bernie,

hier würde ich die Zahlen ohne die Anführungszeichen angeben.

Code:

Spalte = 4                'oder mit InputBox("Nummer der Spalte in der sich die Aktienkürzel befinden")
  startzeile = 3

denn Du hast die Variablen als Zählvariablen vom Typ Integer deklariert, wobei ich wiederum den Typ Long verwenden würde.

[Bernie]

Sorry, das ich erst jetzt antworte, aber ich hatte gestern schon Bescherung "Mein neues Auto ist endlich da"

@ Atilla

Danke für deine Hilfe. Deine Vorschlag hatte ich bereits vor meinem Posting ausprobiert und es funktionierte nicht. Hab aber mittlerweile die Abfrage gesplittet und nun exakt ein bestimmtes Tabellenblatt zugeordnet. Denn die Abfrage hat viel zu lange gedauert.

Freu mich aber sehr, dich wieder öfter im Forum zu sehen.
Hab immer ein Auge auf meine Fragen, gelle. :05:

@ Stefan

Dein Vorschlag geht nicht, da ich die Inputbox lediglich weggelassen habe und die Werte, die sonst in der Inputbox eingegeben wurden, direkt vorgebe. Wie schon bei Atilla erwähnt, habe ich die Abfrage gesplittet und somit kommen wieder feste Vorgaben in den Code.

Euch Beiden noch ein schönes Wochenende!!!

[Steffl]

Hallo Bernie,

@ Stefan

Dein Vorschlag geht nicht, da ich die Inputbox lediglich weggelassen habe und die Werte, die sonst in der Inputbox eingegeben wurden, direkt vorgebe. Wie schon bei Atilla erwähnt, habe ich die Abfrage gesplittet und somit kommen wieder feste Vorgaben in den Code.

Wo habe ich in meinen Beitrag die Inputbox erwähnt? Das mit der Inputbox habe ich nur aus deinem Beitrag kopiert und Zahlen weist mal halt ohne die Anführungszeichen an.