Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tool/Tabelle wieder auf 0 setzen

Tool/Tabelle wieder auf 0 setzen
Christopher
Hi Leute,
ich hätte da eine Frage und zwar habe ich ein Makro angelegt mit dem ich eine Wertekopie erstellen kann. Im nächsten Schritt wäre es super wenn die Tabelle oder das Tool Kontierung wieder auf 0 gesetzt werden würde? Wie mache ich das am besten?
Hier mein Makro:
Sub Wertekopie_kontierung()
Sheets("Kontierung").Select
Sheets("Kontierung").Copy Before:=Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Kontierung (2)").Select
Sheets("Kontierung (2)").Name = "Juli 09"
Application.CutCopyMode = False
End Sub
Vielen Dank schon mal für die Mühe!
Gruß
Christopher

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Nachfrage
22.09.2009 10:33:57
Jens
Hallo Christopher
Was meinst Du mit:
wenn die Tabelle oder das Tool Kontierung wieder auf 0 gesetzt werden würde?
Gruß aus dem Sauerland
Jens
AW: Nachfrage
22.09.2009 10:39:51
Christopher
Hallo Jens,
Ziel ist das die Einträge der Tabelle, die ich zuvor mit dem Makro in ein anderes Blatt kopiert habe wieder verschwinden. Also bspw.:
KST
Eintrag 1
Eintrag 2
etc.
Schönen Dank schon mal für die schnelle Antwort!
AW: Nachfrage
22.09.2009 10:57:34
Christopher
Vielleicht kann ich das ganze auch noch etwas genauer beschreiben. Also ich kopiere eine Tabelle oder besser gesagt mein Tool mit dem ich Beträge verschiedenen Konten zuweise, mit dem Makro von oben. Diese kopierten Werte aus meiner Ausgangstabelle (quasi das Tool das ich jeden Monat brauche) sind dann also in einer anderen Tabelle unter der Monatsbezeichnung (Bsp. Juli 09) abgespeichert. Nun wäre es super wenn aus meinem Tool Kontierung die Einträge wieder gelöscht werden. So dass ich für August einfach wieder die aktuellen Beträge einsetzen und dann den unterschiedlichen Konten zuordnen kann, um dann letztlich wieder eine Wertekopie unter der Bezeichnung August 09 anlegen zu können.
Ich hoffe das ganze ist einigermaßen verständlich..
Vielen Dank an alle die sich die Zeit nehmen.
Gruß
Christopher
Anzeige
AW: Nachfrage
22.09.2009 11:41:03
Chris
Servus,
wie viel Einträge sind das denn ?
prinzipiell sollte das so funktionieren:
With Sheets("Kontierung")
.Range(" Adresse von Eintrag1 z.B. A1") = ""
.Range(" Adresse von Eintrag2 z.B. A2") = ""
.
.
.
u.s.w.
End with
das ganze wird dann unten nach CutCopyMode = False
angehängt.
Gruß
Chris
AW: Nachfrage
22.09.2009 11:43:14
Jens
Hallo Christopher
Wenn Du das so meinst, dass der Inhalt vom Tabellenblatt "Konvertierung" gelöscht wird, dann so:
Worksheets("Konvertierung").Cells.ClearContents 'um Inhalte zu löschen
Worksheets("Konvertierung").Cells.ClearFormats 'um alle Formatierungen zu löschen
Gruß aus dem Sauerland
Jens
Anzeige
AW: Nachfrage
22.09.2009 11:46:52
Christopher
Vielen Dank euch beiden! Bin erst seit einer Woche dabei mich in den ganzen Kram zu arbeiten und auf freiwillige Hilfe angewiesen.
AW: Nachfrage
22.09.2009 11:48:40
Jens 

und auf freiwillige Hilfe angewiesen
Dafür ist das Forum ja da ;o)
Gruß aus dem Sauerland
Jens
AW: Nachfrage
22.09.2009 11:53:21
Christopher
Klappt soweit gut Jens. Wie kriege ich es denn hin das nur die Spalten B10:B100, C10:C100 und F10:F100 in dem Blatt Kontierung gelöscht werden?
Vielen dank!
AW: Nachfrage
22.09.2009 11:59:00
Jens
Hi
Der Makrorecorder hilft da manchmal ;o)
Worksheets("Konvertierung").Range("B10:C100, F10:F100").ClearContents
Gruß aus dem Sauerland
Jens
Anzeige
AW: Nachfrage
22.09.2009 12:00:39
Christopher
Ok mehr von deiner kostbaren Zeit werde ich heute nicht mehr in Anspruch nehmen. Danke schön!
Gruß aus NRW
Christopher
"kostbare Zeit"...
22.09.2009 12:08:08
Jens 

Ok mehr von deiner kostbaren Zeit werde ich heute nicht mehr in Anspruch nehmen.
Das mit dem Makrorecorder war aber nicht bös' gemeint, Christopher :o)
Das hat ja nix mit meiner "kostbaren" Zeit zu tun.
Sollte nur ein Hinweis darauf sein, dass man so Kleinigkeiten (auch wenn es für Dich vielleicht etwas schwieriger ausschaut) auch über den Makrorecorder lösen könnte.
Einfach mal ein wenig ausprobieren. Den Code bekommt man dann relativ leicht angepasst.
Gruß aus dem Sauerland
Jens
Anzeige
AW: "kostbare Zeit"...
22.09.2009 16:33:02
Christopher
Hallo Jens,
habe das auch nicht böse aufgefasst! ;-) Bin wirklich für jeden Tipp dankbar. Das mit der kostbaren Zeit war ernst gemeint. ;-)
Wirklich vielen Dank und der Makro Recorder läuft mittlerweile auf Hochtouren.
Gruß
Christopher

141 Forumthreads zu ähnlichen Themen

Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Verweis auf MS Forms 2.0 setzen per Vba
Reinhard

Hallo Wissende,
ich will eine xla erstellen, die den Verweis auf Microsoft Forms 2.0 Object Libraray benötigt. Der Verweis zielt in XL97 auf eine andere Datei als in XL2000, deshalb sind auch die Guid-Nummern verschieden.
Option Explicit #If VBA6 = 0 Then Const FM20_GUID = "{C43ABEE0-...
06.11.2008 16:57:01
Thread-ID: 1022358
6 Beiträge
Zellen über Button auf 0 setzen
m-andi

Guten morgen,
Ich habe folgendes Problem:
Ich möchte auf der Ersten Seite meiner Excel-Mappe einen Butten haben mit dem ich einzelne Felder in der Gesamten Arbeitsmappe Löschen kann.
Also z.B. auf dem Blatt 2 die Felder A12:A18; B23; dann auf Blatt 2 C60; D34; auf Blatt 3 C2:F12; us...
08.12.2008 08:45:18
Thread-ID: 1030970
2 Beiträge
Anzeige
Wenn kein Eintrag dann 0
Alex

Hi @ all!
Habe ein kleines Problem:
Habe folgende Formel, aber es wird immer Divison durch Null angezeigt...
=WENN(H3=" ";"0";H3/F3)
Ich quasi nur Teilen, wenn in H3 ein Eintrag vorhanden ist, oder eben wenn kein Eintrag vorhanden ist soll 0 da stehen...
Vielen Dank schon ma...
14.07.2009 12:41:15
Thread-ID: 1088433
5 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
#NV in 0 umwandeln
rainer
Hallo! Die NV# entstehen duech Formeln, für die kein Wert berechnet werden konnte. Modifiziere deine Formel analog zu:
vorher: Zelle A1:(Formelxy)
nachher: wenn (istfehler(formelxy);0;formel(xy))
15.04.2002 11:51:26
Thread-ID: 113365
4 Beiträge
Zelleneintrag "1200" in Uhrzeit 12:00 umwandeln
',," (2x Komma) Durch:':' (Doppelpunkt).Nun kannst Du 'komfortabel' auf dem Ziffernblock 2 Kommas eingeben; der Doppelpunkt eird generiert.Ansonsten als Ansatz fogende VBA-Makros von Michael Schwimmer:
16.04.2002 10:15:59
Thread-ID: 113633
2 Beiträge
Wenn "A1" = #N/A dann "B1" = 0
ChrisW

Hallo Leute,
Ich hab da ein blödes Formelproblem.
Ich habe in Spalte A Werte, die entweder #N/A sind oder eine Zahl.
Wenn in der Zelle "A1" #N/A steht, soll in Zelle "B1" eine "0" stehen, sonst eine "1"
Wie sieht die entsprechende Formal aus?
=IF(A1= #N/A;0;1) liefert mir...
08.06.2010 15:02:34
Thread-ID: 1160877
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
6
5
1
7
4
2
3
1
8
7
4
6
4
6
6
11
3
4
3
4
9
4
3
2