ich habe einzelne Makros für eine bessere Übersicht erstellt. Nun wollte ich aus einen Hauptmakro, die benötigten Makros mit dem Befehl Call starten. Nachdem die einzelen Makros abgearbeitet sind, benötige ich vereinzelt die Variablen. Wie kann ich einzelne Variablen mitnehmen in das Hauptmakro?
Anbei ein Beispiel:
Hauptmakro
Sub all()
Call isin
'Die Variable anzahl_isin und den Vektor isins() benötige ich später noch, wie kann ich diese ü _
bergeben?
Worksheets("Tabelle1").Cells(1, 1) = anzahl_isin
End Sub
Sub isin()
tabellenblatt = "Input"
tabellenblatt2 = "Tabelle1"
bn = 1
loeschen = "J1:K" & Worksheets(tabellenblatt2).Cells(Rows.Count, "J").End(xlUp).Row
Worksheets(tabellenblatt2).Range(loeschen).ClearContents
'Finale Vektor-Daten zum erfassen
ibereich = "D1:D" & Worksheets(tabellenblatt).Cells(Rows.Count, "A").End(xlUp).Row
Worksheets(tabellenblatt).Range(ibereich).AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
Worksheets(tabellenblatt2).Range("J2"), Unique:=True
For i = 1 To Worksheets(tabellenblatt).Cells(Rows.Count, "A").End(xlUp).Row
If Worksheets(tabellenblatt2).Cells(i, 10) = "" Or Len(Worksheets(tabellenblatt2).Cells(i, _
10)) 12 Then
Else
If bn = 1 Then
bn = Worksheets(tabellenblatt2).Cells(i, 10)
anzahl_isin = 1
Else
If Worksheets(tabellenblatt2).Cells(i, 10) bn Then
bn = Worksheets(tabellenblatt2).Cells(i, 10)
anzahl_isin = anzahl_isin + 1
End If
End If
End If
Next i
Dim isins() As String
ReDim isins(anzahl_isin)
'ISIN-Vektor erstellen
j = 0
For i = 1 To Worksheets(tabellenblatt2).Cells(Rows.Count, "J").End(xlUp).Row
If Worksheets(tabellenblatt2).Cells(i, 10) = "" Or Len(Worksheets(tabellenblatt2).Cells(i, _
10)) 12 Then
Else
j = j + 1
isins(j) = Worksheets(tabellenblatt2).Cells(i, 10)
End If
Next i
End Sub
Vielen Dank für Eure Unterstützung!Moritz