Zelle in einer anderen Arbeitsmappe anspringen.

Sub Werte_in_andere_Tabelle_eintragen() Dim Eingabeort As Range Dim external As Range Dim Zellbezug As Variant Set Eingabeort = Application.InputBox( _ prompt:="Bitte auf einem Tabellenblatt die erste Zelle suchen, wo die Preise eingetragen werden sollen", Type:=8) Zellbezug = Eingabeort.Address(, , , True) ' hier soll jetzt "Zellbezug" ausgewertet werden, damit man zum ' markierten Feld (also dem Feld das mit der inputbox angewählt wurde) ' springen kann Selection.Value = "50 Euro" 'das ist nur ein Beispiel End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Werte_in_andere_Tabelle_eintragen() Dim Eingabeort As Range Dim external As Range Dim Zellbezug As Variant Dim strTab As String, strZelle As String Set Eingabeort = Application.InputBox( _ "Bitte auf einem Tabellenblatt die erste Zelle suchen, wo die" & _ "Preise eingetragen werden sollen", Type:=8) Zellbezug = Eingabeort.Address(, , , True) strTab = Mid(Zellbezug, InStr(1, Zellbezug, "]", 1) + 1, _ InStr(1, Zellbezug, "!", 1) - InStr(1, Zellbezug, "]", 1) - 2) If InStr(1, Zellbezug, ":", 1) = 0 Then strZelle = Mid(Zellbezug, InStr(1, Zellbezug, "$", 1), _ Len(Zellbezug) - InStr(1, Zellbezug, "$", 1) + 1) Else strZelle = Mid(Zellbezug, InStr(1, Zellbezug, "$", 1), _ InStr(1, Zellbezug, ":", 1) - InStr(1, Zellbezug, "$", 1)) End If Sheets(strTab).Range(strZelle) = "50 Euro" End Sub

Hallo Christoph,
ganz herzlichen Dank für Deine Mühe. Dein Ansatz ist eine gute Idee, es klappt aber leider nicht auf Anhieb. Man müßte probieren, den Namen der Arbeitsmappe von der Zelladresse zu trennen, was Du ja versucht hast. Aber mit strTab kommt nicht der komplette Name, der wird leider abgeschnitten. Als Trenner hast Du glaub ich das !-Zeichen verwendet.
Wenn man die beiden Str gefunden hat müßte man damit eine selection machen, damit die "50 Euro" dann in das Feld geschrieben werden was man sich vorher manuell ausgesucht hat. Was muß dafür definiert werden und wie lautet dann der Code?
Vielleicht hast Du ja noch einmal Lust dieses Problem zu wälzen. Ich war leider gestern nicht im Büro und jetzt ist der tread wieder zwei Tage weiter...
Grüße
Gerhard

hallo Gerd,
mir ist noch nicht so ganz klar, was du willst. Bei geöffneter Inputbox kannst du meines Erachtens nicht das Workbook (=Datei) wechseln. Natürlich kannst du den Code von einem anderen Workbook aus starten, dafür brauchst du aber den Dateinamen jenes Workbooks dann auch wieder nicht in deinem Code.
Deshalb habe ich nur den Tabellen-Namen und die erste Zelladresse genommen.
Allerdings fehlt wohl noch eine Fallunterscheidung bei meinem bisherigen Code, da je nach Dateiname ein Hochkomma in "Zellbezug" vorkommt oder nicht (Korrektur s.u.)
Um den Wert "50 Euro" in die Zelle: "Sheets(strTab).Range(strZelle)" zu schreiben, ist keine "Selection" notwendig.
Wenn du unbedingt den Dateinamen extrahieren willst, dann zB. mit:
strDat = Mid(Zellbezug, InStr(1, Zellbezug, "[", 1) + 1, _
InStr(1, Zellbezug, "]", 1) - InStr(1, Zellbezug, "[") - 1)
so müsste es laufen:
Gruß
Christoph


Sub Werte_in_andere_Tabelle_eintragen()
Dim Eingabeort As Range
Dim external As Range
Dim Zellbezug As Variant
Dim strTab As String, strZelle As String
Set Eingabeort = Application.InputBox( _
"Bitte auf einem Tabellenblatt die erste Zelle suchen, wo die" & _
"Preise eingetragen werden sollen", Type:=8)
Zellbezug = Eingabeort.Address(, , , True)
If InStr(2, Zellbezug, "'", 1) = 0 Then
strTab = Mid(Zellbezug, InStr(1, Zellbezug, "]", 1) + 1, _
InStr(1, Zellbezug, "!", 1) - InStr(1, Zellbezug, "]", 1) - 1)
Else
strTab = Mid(Zellbezug, InStr(1, Zellbezug, "]", 1) + 1, _
InStr(1, Zellbezug, "!", 1) - InStr(1, Zellbezug, "]", 1) - 2)
End If
If InStr(1, Zellbezug, ":", 1) = 0 Then
strZelle = Mid(Zellbezug, InStr(1, Zellbezug, "$", 1), _
Len(Zellbezug) - InStr(1, Zellbezug, "$", 1) + 1)
Else
strZelle = Mid(Zellbezug, InStr(1, Zellbezug, "$", 1), _
InStr(1, Zellbezug, ":", 1) - InStr(1, Zellbezug, "$", 1))
End If
Sheets(strTab).Range(strZelle) = "50 Euro"
End Sub

Beliebteste Forumthreads (12 Monate)

Zelle in einer anderen Arbeitsmappe anspringen.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle in einer anderen Arbeitsmappe anspringen.

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread