2 VBA-Fragen
05.10.2005 11:06:52
Thomas
ich habe mir so eine nette Excel-Tabelle gebastelt, soweit hat auch ganz gut geklappt, doch an 2 Stellen hänge ich.
1. ich will auf einen Button drücken und dann soll die Datei gespeichert werden mit einem Dateinamen, der sich aus 3 Zellen zusammensetzt, siehe hier:
Sub speichern()
ActiveWorkbook.SaveAs Filename:="C:\Rechnungen Franz\" & Cells(9, 6).Value & " " & Cells(1, 6).Value & " " & Cells(8, 1).Value
End Sub
soweit klappt es auch, doch es sind noch 2 Schönheitsfehler darin:
- ich hätte gerne, daß das "Speichern unter..." aufgeht und genau das vorgibt, doch man die Möglichkeit hat, das doch noch mal zu ändern.
- Wenn in einer Zelle, aus der der Dateiname erzeugt wird ein Punkt mit drinnen ist, fehlt hinten die Endung .xls
2. ich will eine Zeile einfügen an dem Punkt, wo gerade die markierte Zelle ist und dann in der eingefügten Zeile in Spalte F eine Formel einfügen. Hier mein Ergebnis bisher:
Sub Zeile_einfügen()
ActiveCell.Offset(0, -99).Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, 5).Select
ActiveCell.FormulaR1C1 = "=RC[-5]*RC[-1]"
End Sub
Auch das klappt schon ganz gut, allerdings nur, daß die markierte Zelle schon Spalte F ist. Meine Idee war, daß ich mit dem -99 soweit zurückspringe, daß ich auf Spalte A bin und dann unten mit 0, 5 in die Spalte F komme. doch das klappt so dummerweise nicht, weil ich ja weiter links als Spalte A bin dann. Wie schaffe ich das?
Danke für eure Hilfe
Gruß
Thomas