Supportnet / Forum / Tabellenkalkulation
Reellen Wert auslesen
Frage
Hallo,
ich habe noch nie VBA und Makros programmiert. Jetzt habe ich aber eine Aufgabe bekommen, mit eben diesen Sachen.
Mein Problem ist, dass in Excel 2000 ein Button sein soll, mit dem ich ein Makro ablaufen lassen kann.
Dieses Makro soll den Inhalt des aktiven Arbeitsblattes auslesen und in eine neue .xls Datei kopieren.
Problem2: Die zu kopierenden Zellen enthalten teilweise Verknüpfungen zu anderen Excel Dateien. Ich will aber den Wert z.B. 55 kopieren und nicht die Verknüpfung.
Wie ist dies möglich???
Brauche dringend eine Antwort!!!
Danke
Antwort 1 von martl
Hallo jojo,
versuchs mal wie folgt: als erstes gehst Du bitte auf die Symbolleisten. Mit der rechten Maustaste öffnet sich ein Kontextmenü, da bitte: Steuerelement-Toolbox aktivieren. Dann auf das Icon "Befehlsschaltfläche" clicken und mit dem Fadenkreuz kannst Du dann in dein Arbeitsblatt einen Button einfügen. Per Doppelclick auf diese Befehlsschaltfläche öffnet sich ein weiteres Fenster, in dem folgender Code einzutragen wäre:
Private Sub CommandButton1_Click()
Dim Dateiname, Dateipfad As String
Dateiname = InputBox("Bitte geben Sie den Dateinamen ein:", "Dateiname", "NeuerName.xls")
Dateipfad = "C:\Dateien\" ´den Namen des Pfades ggf. ändern
ActiveSheet.Cells.Copy ´ den Namen der Tabelle ggf. ändern
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=Dateipfad & Dateiname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("A1").Select
ActiveWorkbook.Close
End Sub
Das Fenster kannst Du danach wieder schließen. Dann nochmals in das aktive Arbeitsblatt wechseln und die Symbolleiste "VisualBasic" aktivieren. Dort gibt es ein Symbol für den Entwurfsmodus (Dreieck/Bleistif/Lineal) - dieses muss, damit der Button funktioniert, per Click deaktiviert werden.
Und dann dürfts schon funktionieren.. im Grunde nach ;) ... wenns Probleme gibt, einfach nochmal melden.
Viele Grüße und ein schönes Wochenende
martl
versuchs mal wie folgt: als erstes gehst Du bitte auf die Symbolleisten. Mit der rechten Maustaste öffnet sich ein Kontextmenü, da bitte: Steuerelement-Toolbox aktivieren. Dann auf das Icon "Befehlsschaltfläche" clicken und mit dem Fadenkreuz kannst Du dann in dein Arbeitsblatt einen Button einfügen. Per Doppelclick auf diese Befehlsschaltfläche öffnet sich ein weiteres Fenster, in dem folgender Code einzutragen wäre:
Private Sub CommandButton1_Click()
Dim Dateiname, Dateipfad As String
Dateiname = InputBox("Bitte geben Sie den Dateinamen ein:", "Dateiname", "NeuerName.xls")
Dateipfad = "C:\Dateien\" ´den Namen des Pfades ggf. ändern
ActiveSheet.Cells.Copy ´ den Namen der Tabelle ggf. ändern
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=Dateipfad & Dateiname, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("A1").Select
ActiveWorkbook.Close
End Sub
Das Fenster kannst Du danach wieder schließen. Dann nochmals in das aktive Arbeitsblatt wechseln und die Symbolleiste "VisualBasic" aktivieren. Dort gibt es ein Symbol für den Entwurfsmodus (Dreieck/Bleistif/Lineal) - dieses muss, damit der Button funktioniert, per Click deaktiviert werden.
Und dann dürfts schon funktionieren.. im Grunde nach ;) ... wenns Probleme gibt, einfach nochmal melden.
Viele Grüße und ein schönes Wochenende
martl