Aktientransaktion erfassen Schaltfläche VBA
14.07.2024 13:39:13
null8fuff10
wenn ich in Eingabefeldern einen Aktiennamen und andere Daten eingebe (hier XETR:CCC3) und in einer Tabelle die korrekte Bezeichnung (hier THE COCA-COLA COMPANY (XETR:CCC3)) erhalten möchte, bekomme ich nach drücken der Schaltfläche, welche ein VBA Makro ausführt, die Fehlermeldung Laufzeitfehler 13; Typen unverträglich. Das Makro läuft nur, wenn XETR:CCC3 eins zu eins übernommen wird, nicht aber sobald ich in Spalte1 die Funktion "In Aktien konvertieren" ausgewählt habe.
Die korrekte Firmenbezeichnung wird für weitere Schritte benötigt. Wie bekomme ich die Firmenbezeichnung automatisch in ein Feld zur weiteren Bearbeitung?
Hier die Datei https://www.herber.de/bbs/user/170893.xlsm
und der VBA Code
Sub Test()
Dim Spalte1 As String, Kaufdatum As String, Anzahl As String, Einstandskurs As String
Worksheets("Datenerfassung Test").Select
Spalte1 = Range("I3")
Kaufdatum = Range("I4")
Anzahl = Range("I5")
Kurs = Range("I6")
Worksheets("Datenerfassung Test").Select
Worksheets("Datenerfassung Test").Range("A2").Select
If Worksheets("Datenerfassung Test").Range("A2").Offset(1, 0) > "" Then
Worksheets("Datenerfassung Test").Range("A2").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Spalte1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kaufdatum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Anzahl
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kurs
End SubVielleicht alles etwas missverständlich .... für Rückfragen und Ideen bitte gerne eine Rückmeldung.
Vielen lieben Dank.
null8fuff10
Anzeige
