Zellenansprache per Input
Reinhard
hab bislang alleine durch das "Herauslesen" viele tolle Tipps hier erhalten.
Stehe nun aber vor einem Problem, wo ich einfach Hilfe benötige.
Ich lese mittels VBA Daten aus einem Excel-Sheet ein und verarbeite diese in folgenden Abläufen weiter.
Da sich leider die Grundtabelle, aus der ich die Daten einlese, manchmal ändert, möchte ich vorab eine Abfrage schalten, wo der Nutzer die Spalten-Nr. eingibt, in der sich die entsprechenden Daten befinden (besser wäre dieses über die Spalten-Namen, aber das hab ich bislang noch nicht gelöst).
folgenden Code verwende ich dafür:
Public Sub wo_was()
Dim EB_Bezeichnung
Dim EB_Referenz
EB_Bezeichnung = Application.InputBox(Prompt:="Bitte die Spalten-Nr. für Bezeichnung eingeben" _
_
_
, _
Title:="Userform - Eingabe Bezeichnung", _
Type:=2)
EB_Referenz = Application.InputBox(Prompt:="Bitte die Spalten-Nr. für Referenz eingeben", _
Title:="Userform - Eingabe Referenz", _
Type:=2)
End Sub
Diese Spalten-Nr. sollen dann an eine andere Sub übergeben werden, wo ich dann auf die Spalten wieder zugreife:
Sheets("Einzel").Select
Sheets("Einzel").Activate
Application.Run "wo_was"
For i = 2 To 8000
If Cells(i, 2) > 0 Then
Betrag(i) = Cells(i, EB_Bezeichnung) (**)
Referenz(i) = Cells(i, EB_Referenz)
j = j + 1
End If
Next i
Leider bricht das Programm immer mit Lafuzeitfehler 1004 bei (**) ab.
Kann mir jemand weiterhelfen?
Vielen Dank für's Lesen!
Gruß
R.T.