ich habe folgendes Problem und hoffe jemand von Euch weiß ne lösung...
Ich möchte ein Makro schreiben mit dessen Hilfe der Inhalt einer TextBox in eine Zelle eines anderen Sheets übertragen werden soll.
Es funktioniert auch, dass der Inhalt der TextBoxen in die Zellen eingetragen wird und das das Sheet in der Ansicht gewechselt wird aber der Eintrag wird auf dem Sheet vorgenommen, auf dem sich die TextBoxen befinden nicht auf dem Deckblatt zu dem der Befehl "Sheets("Deckblatt").Select" wechselt.
Hat jemand ne Idee?
Private Sub erstellen_Click()
Dim F As String
Dim n As String
Dim a As Integer
Dim i As Integer
F = FBox()
n = NBox()
a = AnzahlBox()
'Ordner auf desktop erstellen'
Dim strPath As String
strPath = GetPath(R_DESKTOP)
strPath = Left$(strPath, Len(strPath) - 1)
MakeSureDirectoryPathExists strPath & "\Befragung " & F & " " & Format(Date, "dd.mm.yyyy") & "\"
'Fragebogen erstellen'
'Wechsel auf Deckblatt'
' Sheets("Deckblatt").Select
'einfügen aus FirmaBox'
Range("D4").Value = F
'einfügen aus NiederlassungBox'
Range("D6").Value = n
'Datum einfügen'
Range("D8").Value = Date
'Gemäß Anzahl in AnzahlBox abspeichern'
'For-Schleife beginnen'
' For i = 1 To a
' ActiveWorkbook.SaveAs Filename:=Pfad & "Fragebogen Firma Datum i%.xls", FileFormat _
' :=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
' False, CreateBackup:=False
' Next i
'For-Schleife beenden wenn i="AnzahlBox"'
End Sub
Die Forschleife ist auch noch nicht ok, nicht wundern...