Tabellenkalkulation

Hilfe, habe ein kleines Problem bei Datenübernahme

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo an alle lieben Leute die gerne Helfen. Wie kann man über einen Button in der Tabelle Rechnung1.xls aus einer nichtaufgerufenen Tabelle (rechnung.xls) aus dem Blatt (Daten) folgende Zellen: A11:A12 und C6:C21 in eine aufgerufene Tabelle (rechnung1.xls) in das exakt gleiche Blatt (Daten) in exakt die selben Zellen mit der selben Bezeichnung übernehmen und als feste Werte in dem neuen Blatt (Daten) übernehmen. Soll so was wie eine Datenübernahme aus einer älteren Tabelle in eine neue Fassung werden, um nicht jedes mal diese Daten neu eingeben zu müssen. Frage 2: Wie kann ich mit einem zusätzlichen Button die Ursprungstabelle dann noch löschen ohne die alte Tabelle (rechnung.xls) aufrufen zu müssen. (geht das überhaupt????)Wäre für eine Lösung sehr Dankbar. Vielen Dank für Eure Bemühungen. Gruß Karsten

Antwort 1 von Guenter

Hallo,

Frage 1:

über Ansicht Symbolleisten Steuerelemente-Toolbox eine Button erstellen,

Rechtsklick auf den Button, Code anzeigen, diesen Code eingeben:


Private Sub CommandButton1_Click()
  Workbooks.Open ("rechnung.xls")
    
  Worksheets("Daten").Range("A11:A12").Copy _
    Destination:=Workbooks("rechnung1.xls").Worksheets("Daten").Range("A11:A12")
  
  Worksheets("Daten").Range("C6:C21").Copy _
    Destination:=Workbooks("rechnung1.xls").Worksheets("Daten").Range("C6:C21")
    
  Workbooks("rechnung.xls").Close
End Sub

Frage 2:

Dateien kann man löschen mit


Kill "Pfad/Dateiname"

Gruß
Günter

Antwort 2 von Karsten

Hi Günter,
danke erst mal für Deine promte Antwort. Werde am Wochenende Deine Lösung ausprobieren und gebe Dir dann Bescheid ob es funktioniert. Vielen Dank nochmals.
Gruß Karsten

Antwort 3 von Karsten

Hallo Günter,
ich bin schon eher an den Rechner gekommen um es auszuprobieren. Hat alles super geklappt (jetzt kommt es) bis auf :
Bei der ersten Antwort hat man immer eine Nachfrage ob mann die Datei Rechnung.xls beim beenden speichern möchte. Es wird wohl diese Datei geöffnet und dann wieder geschlossen und beim Schließen kommt dann wie üblich die Frage nach der Speicherung . Geht das auch ohne diese Nachfrage?
Und bei der zweiten Frage hätte ich gerne genau das Gegenteil, also mit Nachfrage bevor die Datei Rechnung.xls gelöscht wird. Geht so was auch?
Wäre Dankbar für eine Ergänzung deiner tollen und schnellen Lösung.
Gruß Karsten

Antwort 4 von Guenter

Hallo,

diese Nachfragen kann man mit
Application.DisplayAlerts = False
unterdrücken.
Probiere das mal aus, ob es funktioniert.

Für das Löschen kannst Du Dir eine MessageBox machen, z.B


Sub test()
  ergebnis = MsgBox("Wollen Sie die Datei wirklich löschen?", vbYesNo + vbQuestion)
  If ergebnis = vbYes Then Kill temp.xls
End Sub

Gruß
Günter

Antwort 5 von Karsten

Hallo Günter,
erst mal danke für Deine schnelle Antwort. Probiere Deine Lösung aus und sag dann bescheid ob es geklappt hat.
Gruß Karsten

Antwort 6 von Karsten

Hallo Günter habe Deine Lösung ausprobiert. Funktionierte erst mal nicht. Mußte den zu löschenden Dateinamen in "Gänsefüßchen" setzen. Jetzt klappt es prima. Vielen Dank noch mal für Deine Hilfe.
Gruß Karsten