möchte für unteres Makro folgendes einbauen: wenn die Fondsnummer 33 ist, soll als Währung USD in Zelle B15 eingetragen werden? Wie kann ich das in das untere Makro einfügen?
Sub Indexkontrakte()
Dim Fondsnummer As String
Dim Indexkontrakte As String
1:
Fondsnummer = InputBox("Bitte geben Sie die Fondsnummer ein:", "Dateneingabe:")
If Fondsnummer = "" Then Exit Sub
If IsNumeric(Fondsnummer) Then
Range("b1").Value = Fondsnummer
Vielen Dank.
Dani