Supportnet / Forum / Tabellenkalkulation

Hallo an alle, Ich möchte ein Rechnung program mit datenbank erstellen, alles funktioniert, , aber jedesmal muss ich die rechnung Angaben manuell löschen, um weitere rechnug zu erstellen, ich dachte kann man per Ein Knopf in Excel die Rechnugangaben zurücksetzen, oder mit ein Knopf die sume in ein andere Lisste kopieren. ist das überhaupt möglich? ich werde sehr dankbar sein wenn jemand mir hilft. alex

Mióin Alex,

kopiere nachfolgendes Makro in ein StandardModul und weise es einer Befehlsschaltfläche zu.

Option Explicit

Sub Zellinhalte_löschen()
Range("A1,B2,C3").ClearContents
End Sub

Mit dem Makro werden die Inhalte der Zellen A1, B2 und C3 gelöscht. Da es bei Dir sicherlich andere Zellen seien werden, ändere die Zellbezeichnung. Wenn noch weitere Zellen gelöscht wereden sollen, hänge das hinter C3 immer durch ein Komma getrennt an. Also wenn Du z.B. noch die Inhalte von D4 löschen möchtest, sähe die Zeile folgendermaßen aus:

Range("A1,B2,C3,D4").ClearContents

Ich hoffe, Du kommst kalr. Bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
Vielen dank für deine Information, Ich habe wie geschrieben alles eingegeben, und beim neuen start, habe ich auch die Makro aktiviert, aber wie soll ich sie Seite aktuellisieren, damit die Inhalt gelösht wird.gibts es irgendwo ein Knopf oder ein Befehl?

Ich dankbar für deine Hilfe


MFG
Alex

Hallo.

unter Ansicht, Symbolleisten findest Du Formular
Dort nimmst Du die Schaltfläche, ist ein graues Kästchen. Anklicken und in der Tabelle
irgenwo klicken. Linke MausTaste gedückt halten und ziehen.
Jetzt malst Du die Schalfläche.
Maustaste los lassen
Jetzt wird automatisch gefragt welches Makro du benutzten möchtest.


Gruß
Marco

Hallo an alle,
Danke für Ihre Informationen,ich habe es versucht , aber es ist sehr kompliziert, kommt seiten die ich nie im leben gesehen, und bringt mich durcheinander, Geht es anders, oder einfacher? wenn jemand das fertige hat kann mir in mein email schicken?
Das wäre eine große Hilfe für mich.

nochmal danke für eure Hilfe( Coros und Marco)

Alex

Hallo Alexx1,
speichere dein Rechnungsformular ohne Daten als "Mustervorlage". Gehe wie folgt vor: Öffne Menü Daten, wähle Speichern unter, ändere Dateityp in Mustervorlage, benenne die Datei und speichere in dem von Excel vorgeschlagenen Standard Vorlagenordner.
Als normale Excel- Arbeitsmappe öffnest du die Datei dann über Menü Datei und Neu.
mfg
woher

Vielen Dank an alle, Die mich unterstüzten,
Coro,Marko Chatalligator, und woher.

Ich habe es. es funktioniert, wie ich wollte.
Und jetzt möchte ich noch eine code wissen für Makro,
nämlich in dieser Rechnung muss wieder ein knopf schaltfläche ergestellt werden, um die summe der rechnung in eine Liste kopieren, z.B. die zalen von B12 in F20 kopiert werden, wenn da schön etwas steht dann nächste Zelle F21 und soweiter kopiert werden.

Ich werde wie zuvor für Eure Hilfe sehr dankbar sein

MFG

Alexx1

Nabend Alexx1,

kopiere nachfolgenden Code in ein StandardModul und starte es wieder über eine Schaltfläche.

Option Explicit

Sub Summe_kopieren()
Cells(Range("F65536").End(xlUp).Offset(1, 0).Row, 6) = Range("B12")
End Sub

Das Makro kopiert Dir bei jeden Durchlauf den Wert aus Zelle B12 in die erste freie Zelle in Spalte F. Soll der Wert in eine andere Spalte als F kopiert werden, so muss Du in der Anweisung

Cells(Range("F65536").End(xlUp).Offset(1, 0).Row, 6)

die Zellbezeichnung F gegen die Spaltenbezeichnung tauschen, in der die Daten kopiert werden sollen und Du musst außerdem noch die Spaltenindexzahl - in dem Code die 6 - abändern. Wobei die 6 für Spalte F steht, eine 1 würde für Spalte A stehen, eine 2 für B, eine 3 für C, eine 4 für D usw.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,
Danke Coros, Es hat funktioniert, und genau das fehlte in meienm Program,das ist ja echt profi.
Ich könnte leider für ander spalten nicht abändern, dein code:

Cells(Range("F65536").End(xlUp).Offset(1, 0).Row, 6) = Range("B12")

Ich möchte wissen, wie kommt diese ("F65536"),
F für Spaltenbezeichnung, und die reste Zahlen "5536" ist für Spaltenindex, woher haste du diese Zahlen, weil wenn ich die Spaltenbuchstabe ändere,und die die geignete Zahl dahinter , dann klapt nicht, z.B. die Inhalt der Zelle B2 in freien Zellen der Spalte D kopiert werden

MFG
Alexx1

Hi Alex,

die Anweisung

Range("F65536").End(xlUp).Offset(1, 0).Row

sucht Dir in der Spalte F bis zur Zeile 65536 die erste freie Zelle. Die Zahl hat nichts mit dem Spaltenindex zu tun, sondern sagt den Zeilenindex aus. Mit dem tauschen der Zahl meinte ich in meinem Beispiel die Zahl hinter dem Komma, also die 6. Dort muss die Spaltenindexzahl der Spalte hin, in der der Wert geschrieben werden soll. Also wenn Du, wie in Deiner Frage den Wert aus B2 in die erste freie Zeile in Spalte D haben möchtest, dann sähe die Befehlszeile folgendermaßen aus:

Cells(Range("D65536").End(xlUp).Offset(1, 0).Row, 4) = Range("B2")

Ich hoffe, Du hast es verstanden. Wenn nicht, dann melde Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
Ich habe verstanden, vielen Danke, jetzt kann ich bliebig Zeielen und Spalten Aussuchen.
Wie ist, wenn ich die Zelle B2 in der Tabelle1 in spalte D in der Tabelle2 kopieren will?

MFG
Alex

Hi Alex,

dann sieht der Befehl folgendermaßen aus:

Sheets("Tabelle2").Cells(Range("D65536").End(xlUp).Offset(1, 0).Row, 4) = Range("B2")

Der Befehl kopiert Dir den Wert aus dem aktiven Blatt Zelle B2 in das Blatt mit dem Namen "Tabelle2" und dort in die erste freie Zelle in Spalte D.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
Danke für dein code,ich habe eingeben, aber bei mir ist ein Fehler unterlaufen, nämlich die Inhalt von B2 wird in dieTabelle2 in gleiche Zelle kopiert bzw. aktuelleziert. Was soll ich jetzt machen?

Mfg
Alex

Hi Alex,

dan wird bei Dir mit aller Wahrscheinlichkeit nicht die Anweisung

Sheets("Tabelle2").Cells(Range("D65536").End(xlUp).Offset(1, 0).Row, 4) 

sondern z.B.

Sheets("Tabelle2").Cells(Range("D65536").End(xlUp).Offset(1, 0).Row, 2)

oder

Sheets("Tabelle2").Cells(Range("B65536").End(xlUp).Offset(1, 0).Row, 2)

stehen. Auf jeden Fall vermute ich das mal. Was ich nciht verstehe, warum Du den Code händisch eingibst und nicht einfach hier in dem Beitrag markierst, dann kopierst und den Code dann in Deinem VBA Projekt wieder einfügst? Sollte das Dein Problem nicht beheben, dann melde Dich.


MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
Ich habe den kopiert und da eingefügt, aber bei mir wir immer noch alles in gleichen Zeilen kopiert.wenn nicht anders geht dann Die Gesamt Rechnungssumme auch in der Ersten Tabelle.

Nochmal bedanke ich mich.
MFG

Hi Alex,

zunächst mal eine Frage: Besteht die Möglichkeit mal einen klar verständlichen Text zu schreiben? Denn aus dem was Du da in der letzten Antwort geschrieben hast werde ich nicht schlau.

Aus welchem Blatt startest Du denn das Makro? Es muss aus dem Blatt gestartet werden, von dem aus die Daten kopiert werden sollen, nicht von dem Blatt, in das die Daten kopiert werden sollen.

Wenn Du es gar nicht hin bekommst, dann schicke mir Deine Datei mal. Dann schau ich mal, wo der Fehler liegt. Also wenn Du willst, schicke die Datei an meine E-Mailadresse:coros@excelbeispiele.de. Binde in der Betreffzeile das Wort Supportnet und den Nicknamen, unter dem Du hier geschrieben hast, mit ein, da ich alle Mails, deren Absender ich nicht kenne, ungelesen lösche.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Coros,
Ja, das stimmt, ich habe mich sehr kurz und unvverständlich ausgedruckt.
Ich schicke dir an deine email, wie geschrieben.

Danke für deine Unterstüzung

Mfg
Alex

• VBA Dateinamen mit best. Wert in eine Listbox eintragen
• system zurücksetzen
• SmartBase MPC190 auf Werkseinstellung zurücksetzen
• cd/dvd-laufwerk öffnet nicht