Hallo liebe Leute,
ich komm gleich auf den Punkt. Mein Problem ist folgendes: Ich würde gern in Word ein Formular erstellen und dieses mit Excel verknüpfen.
D.h. ich habe ein Feld in dem etwas reingeschrieben wird und dieses soll dann per Button in einer Exceldatei gespeichert werden.
Ich hab zwar durch Google haufenweise gefunden wie man Excel mit Word verknüpft und Daten rausholen kann, aber nicht andersrum...
Wenn ich versuch den gleichen Code zu nehmen von einer Exceldatei in eine neue zu speichern, dann klappt das ja (logischerweise) nicht, daher sieht mein Code bis jetzt wie folgt aus:
Option Explicit
Private Sub CommandButton1_Click()
Dim Letzte As Long
'Pflichtfeld "Name" abfragen:
If TextBox1("Name") = "" Then
MsgBox "Sie müssen einen Namen eintragen!"
Exit Sub
End If
Documents.Open FileName:= _
"H:\Marketing\Formular für Vereinbarungen\Vereinbarungen.xlsx"
With Sheets("Tabelle1")
'Letzte Zeile bestimmen:
Letzte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
'Die Werte übergeben:
.Cells(Letzte, 1) = TextBox1("B5")
End With
ActiveWorkbook.save
ActiveWorkbook.Close
End Sub
Hab anstelle von Range einfach Textbox1 genannt, so wies auch in der Worddatei heißt, dann meckert er da schonmal nicht mehr rum...
Bei Sheets meckert er rum "Fehler beim Kompilieren: Variable nicht definiert" -> Weiß aber nicht, was ich da sonst hinschreiben soll, weil ich ja später auch auf verschiedene Mappen zugreifen will...
Aber wenn ich es auch -Spaß- und -einfach mal rumprobier- weglasse, meckert er bei der nächsten Stelle rum...
Vill kann mir jemand helfen??
Ich würd das Formular schon gern mit Word machen, da es auch einfach besser als mit Excel aussieht...
GlG Sahni ;o)
ich komm gleich auf den Punkt. Mein Problem ist folgendes: Ich würde gern in Word ein Formular erstellen und dieses mit Excel verknüpfen.
D.h. ich habe ein Feld in dem etwas reingeschrieben wird und dieses soll dann per Button in einer Exceldatei gespeichert werden.
Ich hab zwar durch Google haufenweise gefunden wie man Excel mit Word verknüpft und Daten rausholen kann, aber nicht andersrum...
Wenn ich versuch den gleichen Code zu nehmen von einer Exceldatei in eine neue zu speichern, dann klappt das ja (logischerweise) nicht, daher sieht mein Code bis jetzt wie folgt aus:
Option Explicit
Private Sub CommandButton1_Click()
Dim Letzte As Long
'Pflichtfeld "Name" abfragen:
If TextBox1("Name") = "" Then
MsgBox "Sie müssen einen Namen eintragen!"
Exit Sub
End If
Documents.Open FileName:= _
"H:\Marketing\Formular für Vereinbarungen\Vereinbarungen.xlsx"
With Sheets("Tabelle1")
'Letzte Zeile bestimmen:
Letzte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
'Die Werte übergeben:
.Cells(Letzte, 1) = TextBox1("B5")
End With
ActiveWorkbook.save
ActiveWorkbook.Close
End Sub
Hab anstelle von Range einfach Textbox1 genannt, so wies auch in der Worddatei heißt, dann meckert er da schonmal nicht mehr rum...
Bei Sheets meckert er rum "Fehler beim Kompilieren: Variable nicht definiert" -> Weiß aber nicht, was ich da sonst hinschreiben soll, weil ich ja später auch auf verschiedene Mappen zugreifen will...
Aber wenn ich es auch -Spaß- und -einfach mal rumprobier- weglasse, meckert er bei der nächsten Stelle rum...
Vill kann mir jemand helfen??
Ich würd das Formular schon gern mit Word machen, da es auch einfach besser als mit Excel aussieht...
GlG Sahni ;o)