hi
da ich eigentlich keine Ahnung von Visual Basic habe, es aber verstehen und anwenden will, hoffe ich ihr könnt mir bei folgendem Problem weiterhelfen!
Ein bisschen Ahnung von Programmieren habe ich bereits, d.h. C++ uController programmieren (HTL).
wenn es möglich ist bitte die Befehle, Syntax, Tipps,… erklären. THX
1)ich möchte den Inhalt einer Zelle (Text) in die nächste freie Zeile einer Spalte mit einem Button kopieren:
d.h.
in A1 steht: „TEXT1“
in Spalte B stehen bereits 7 Begriffe untereinander. Also soll „TEXT1“ in die 8te Zeile (in Spalte B) kopiert werden!
2)eine Datei (Kopiervorlage.xls) soll mit einem Button 2.1)kopiert
2.2)unbenannt und
2.3)geöffnet
werden
d.h.
ich drücke auf den Button, die Datei (Kopiervorlage.xls) soll mit dem Namen „TEXT1.xls“ in das gleiche Verzeichnis kopiert, unbenannt und geöffnet werden.
ist das überhaupt möglich?
ich hoffe ihr könnt mir weiterhelfen!
ich bin über jede Hilfe dankbar!
Danke im Voraus!
GeraldRudi
Hi GeraldRudi,
1)ich möchte den Inhalt einer Zelle (Text) in die nächste
freie Zeile einer Spalte mit einem Button kopieren:
in A1 steht: „TEXT1“
in Spalte B stehen bereits 7 Begriffe untereinander. Also soll
„TEXT1“ in die 8te Zeile (in Spalte B) kopiert werden!
’ unterste belegte Zelle in B ermitteln, (Problem wenn B65536 voll oder B ganz leer)
zei=Range(„B65536“).End(xlup).row
'Wert übertragen
Range(„B“ & zei+1)=Range(„A1“)
2)eine Datei (Kopiervorlage.xls) soll mit einem Button
2.1)kopiert
2.2)unbenannt und
2.3)geöffnet :werden
ich drücke auf den Button, die Datei (Kopiervorlage.xls) soll
mit dem Namen „TEXT1.xls“ in das gleiche Verzeichnis kopiert,
unbenannt und geöffnet werden.
'Deine Reihenfolge ist anders als Excel-Logik
’ öffnen, die geöffnete Datei ist dann ActiveWorkbook
Workbooks.Open „C:\Test\Kopiervorlage.xls“
’ durch Name wird Kopiervorlage.xls geschlossen
ActiveWorkbook.Name=„Text1.xls“
’ Abspeichern
Workbooks(„Text1.xls“).save
Range,Row, End usw wird in der Hilfe erläutert.
Cursor in/auf einen Begriff stellen, F1…
Gruß
Reinhard
1)ich möchte den Inhalt einer Zelle (Text) in die nächste
freie Zeile einer Spalte mit einem Button kopieren:
in A1 steht: „TEXT1“
in Spalte B stehen bereits 7 Begriffe untereinander. Also soll
„TEXT1“ in die 8te Zeile (in Spalte B) kopiert werden!
’ unterste belegte Zelle in B ermitteln, (Problem wenn B65536
voll oder B ganz leer)
zei=Range(„B65536“).End(xlup).row
'Wert übertragen
Range(„B“ & zei+1)=Range(„A1“)
… hab ich anders (ähnlich) hinbekommen! Danke!!
2)eine Datei (Kopiervorlage.xls) soll mit einem Button
2.1)kopiert
2.2)unbenannt und
2.3)geöffnet :werden
ich drücke auf den Button, die Datei (Kopiervorlage.xls) soll
mit dem Namen „TEXT1.xls“ in das gleiche Verzeichnis kopiert,
unbenannt und geöffnet werden.
'Deine Reihenfolge ist anders als Excel-Logik
’ öffnen, die geöffnete Datei ist dann ActiveWorkbook
Workbooks.Open „C:\Test\Kopiervorlage.xls“
’ durch Name wird Kopiervorlage.xls geschlossen
ActiveWorkbook.Name=„Text1.xls“
’ Abspeichern
Workbooks(„Text1.xls“).save
das öffnen funktioniert!
nur das abspeichern funktioniert noch nicht!
er kennt die Funkt. „AktiveWorkbook.Name“ nicht… ??
bzw. Workbooks(„Text1.xls“).save geht auch nicht… ??
geht es eingentlich die Datei (Kopiervorlage.xls) unter einen Namen der in Zelle „D1“ steht zu speichern??
z.B.: in D1 steht „Testbeispiel1“
dann soll es die Datei mit dem Namen „Testbeispiel1.xls“ speichern! geht das???
Danke im Voraus!!
GeraldRudi
ActiveWorkbook.Name=„Text1.xls“
’ Abspeichern
Workbooks(„Text1.xls“).save
das öffnen funktioniert!
nur das abspeichern funktioniert noch nicht!
er kennt die Funkt. „AktiveWorkbook.Name“ nicht… ??
bzw. Workbooks(„Text1.xls“).save geht auch nicht… ??
Kann nicht sein dass der Compiler das nicht kennt, gibs mal kleingeschrieben ein, wird doch wohl in Kapitälchen umgewandelt!?
Ich gebe grundsätzliches das Meiste klein ein.
geht es eingentlich die Datei (Kopiervorlage.xls) unter einen
Namen der in Zelle „D1“ steht zu speichern??
z.B.: in D1 steht „Testbeispiel1“
dann soll es die Datei mit dem Namen „Testbeispiel1.xls“
speichern! geht das???
ActiveWorkbook.Name=range(„D1“) & „.xls“
Workbooks(range(„D1“) & „.xls“).save
Gruß
Reinhard
Kann nicht sein dass der Compiler das nicht kennt, gibs mal
kleingeschrieben ein, wird doch wohl in Kapitälchen
umgewandelt!?
Ich gebe grundsätzliches das Meiste klein ein.
geht es eingentlich die Datei (Kopiervorlage.xls) unter einen
Namen der in Zelle „D1“ steht zu speichern??
z.B.: in D1 steht „Testbeispiel1“
dann soll es die Datei mit dem Namen „Testbeispiel1.xls“
speichern! geht das???
ActiveWorkbook.Name=range(„D1“) & „.xls“
Workbooks(range(„D1“) & „.xls“).save
Habe ich ausprobiert und der schreibt mir folgendes:
"
Fehler beim Kompilieren:
Zuweisung an schreibgeschützte Eigenschaft nicht möglich
"
wenn ich ok drücke markiert er das erste Range (ActiveWorkbook.Name=range(„D1“) & „.xls“)!
was ist damit gemeint??
Fehler beim Kompilieren:
Zuweisung an schreibgeschützte Eigenschaft nicht möglich
"
wenn ich ok drücke markiert er das erste Range
(ActiveWorkbook.Name=range(„D1“) & „.xls“)!
was ist damit gemeint??
Hi gerald,
diese Meldung ist mir neu, Blattschutz? Mappenschutz aktiviert?
Wenn nicht, lade mal Beispieldatei wo das auftritt bei http://www.rapidshare.de hoch.
Gruß
Reinhard