Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ergebniss einer Maskenfunktion in 2 Tabellen

Ergebniss einer Maskenfunktion in 2 Tabellen
09.04.2003 15:17:41
René
Hallo,

ich hab hier ein ziemlich blödes Problem.
Ich muss über eine Maskenfunktion die möglichkeit bieten Daten in eine Excel Tabelle einzutragen.
Diese Daten werden aber auch noch in einer 2. Tabelle benötigt.
Meine Frage ist nun: Wie bekomm ich es hin das automatisch die Daten in beiden Tabellen stehen ohne irgendwie groß "händisch" rumzukopieren, da das ganze später von absoluten Excel-Laien bedient werden soll. Zudem soll in der 2. Tabelle die Daten immer wieder untereinander geschrieben werden ohne das alte Daten gelöscht werden und ich somit eine Liste generiere.

Vielen Dank im voraus
René


7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ergebniss einer Maskenfunktion in 2 Tabellen
09.04.2003 15:36:03
ChrisL

Hallo René

Nicht ganz klar deine Beschreibung aber denke mal...

Dim LetzteZeile As Long

LetzteZeile = Sheets(2).Range("A65536").End(xlUp).Row + 1

Sheets(2).Cells(LetzteZeile, 1) = TextBox1
Sheets(1).Range("A1") = TextBox1


Ansonsten bitte genauer beschreiben. Maskenfunktion = Userform? "die Daten" was wo wie? etc.

Gruss
Chris

Re: Ergebniss einer Maskenfunktion in 2 Tabellen
10.04.2003 10:29:03
René

Danke erstmal!

Da ich selbst nicht der absolute Excel Profi bin versuch ich euch nochmal mein Problem genau zu schildern.

Ich muß im Prinzip eine Registrierkasse unter Excel erstellen.
Hierfür braucht es ein Eingabefeld für die Ware und den Preis.
(Hierfür hab ich die Maskenfunktion verwendet die Excel bietet und somit die eingegebenen Daten schon in der ersten Tabelle)
Die Daten aus diesem Eingabefeld sollen anschließend in eine Tabelle für den Verkäufer und eine Tabelle für den Käufer (Quittung) gespeichert werden.

Wie schon gesagt sind ja durch die Maskenfunktion die Daten bereits in der ersten Tabelle, nun muß ich diese Daten aber noch in eine 2. Tabelle bekommen und in dieser 2. Tabelle sollen alle "Quittungen" untereinander eingefügt werden.

Wenn ich einfach ein Makro aufzeichne das mir die Daten aus der 1. Tabelle in die 2. Tabelle speichert funktioniert das zwar beim 1. Mal aber sobald ich eine weiter "Quittung" aufnehmen will überspeichert es mir diese Daten.

Wie bekomm ich es hin das excel erkennt das in der Tabelle bereits Daten drin stehen und automatisch erst in der 1. freie Zelle nach den bereits vorhandenen Daten "weiter speichert".

Ich hoff ihr versteh mein kompliziertes Kauderwelsch und könnt mir weiterhelfen. Wär echt super wenn jemand dafür ne Lösung hätte. DANKE!


Anzeige
Re: Ergebniss einer Maskenfunktion in 2 Tabellen
10.04.2003 11:22:20
ChrisL

Hallo René

Die letzte freie Zeile der Tabelle 2, Spalte A ermittelst du wie folgt.

LetzteZeile = Sheets(2).Range("A65536").End(xlUp).Row + 1

Wenn du...
LetzteZeile = Sheets(2).Range("A65536").End(xlUp).Row + 1
MsgBox LetzteZeile

machst, wird dir die Zeilennummer in einer MsgBox angezeigt.

Mit Sheets(2).Cells(LetzteZeile, 1) sprichst du die entsprechende Zelle an. (1 steht für die Spaltennummer)

Am besten postest du mal dein Makro, dann kann man dir besser zeigen wie man es abändern muss.

Was ich nicht ganz verstehe ist, wieso du überhaupt mit Makros arbeiten willst. Wenn ich dich richtig verstehe, dann sind die Listen vom Prinzip her identisch, weshalb man doch auch mit einem einfachen Verweis arbeiten könnte?

Gruss
Chris

Anzeige
Re: Ergebniss einer Maskenfunktion in 2 Tabellen
10.04.2003 13:36:34
René

So hier ist mein bisheriges Makro (mit deinen Tips)


Sub kunde1_copy()
'
' kunde1_copy Makro
' Makro am 10.04.2003 von li01127 aufgezeichnet
'

'
Range("A2:B25").Select
Selection.Copy
Sheets("Tabelle2").Select

Dim LetzteZeile As Long

LetzteZeile = Sheets(2).Range("A65536").End(xlUp).Row + 1
LetzteZeile = ActiveSheet.Paste
Sheets("Tabelle1").Select
Range("a1").Select


End Sub

So wie ich es versteh wählt er jetzt von Tabellenblatt 1 den Bereich A2 bis B25 aus.
Er kopiert den Bereich in den Zwischenspeicher und wechselt auf das 2. Tabellenblatt.
Danach definiert er die Variable LetzteZeile als Long.
Danach belegt er die Variable LetzteZeile mit der Zellenzahl der erstenleeren Zelle.
Dann sag ich ihm das er in diese Zelle den inhalt seines speichers kopieren soll.
Dann wechselt er zurück auf das 1. Tabellenblatt und in die Zelle a1.

Bis hier hört es sich ja ganz logisch an..aber es will nicht :-(

Excel überspeichert mir trotzdem meine bisherigen Daten in der zweiten Tabelle, dabei er ja die letzte Zeile auswählen soll.

Sorry aber ich bin mit meinem latein am Ende...

Anzeige
Re: Ergebniss einer Maskenfunktion in 2 Tabellen
10.04.2003 13:53:21
ChrisL

Sheets("Tabelle2").Cells(LetzteZeile, 1).Select
Sheets("Tabelle2").Paste

statt

LetzteZeile = ActiveSheet.Paste

würde funktionieren.

Allerdings kann man das ganze noch etwas besser machen, denn die Tabelle2 muss man nicht zwingend selektieren und dann wieder zurück zu Tabelle1.

etwa so...

Dim LetzteZeile As Long

LetzteZeile = Sheets("Tabelle1").Range("A65536").End(xlUp).Row + 1
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(LetzteZeile, 1), Sheets("Tabelle2").Cells(LetzteZeile + 23, 2)).Value = Sheets("Tabelle1").Range("A2:B25").Value

Gruss
Chris

kleine Korrektur
10.04.2003 13:55:13
ChrisL

natürlich so...

Dim LetzteZeile As Long

LetzteZeile = Sheets("Tabelle2").Range("A65536").End(xlUp).Row + 1
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(LetzteZeile, 1), Sheets("Tabelle2").Cells(LetzteZeile + 23, 2)).Value = Sheets("Tabelle1").Range("A2:B25").Value

Anzeige
Danke!
10.04.2003 14:43:34
René

DANKE!

Es funktioniert so wie ich es mir vorgestellt hab.
Viel Danke du hast mir echt das leben gerettet ;-)

299 Forumthreads zu ähnlichen Themen

Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Fällt Datum in einen Datumbereich dann Eintrag
Josef

Guten Morgen!
Ich habe in der Tabelle 1 in der Spalte A sechsstellige Zahlen stehen.
In derSpalte E stehen Datumsbereiche z.B. 31.05.07-06.06.07.
In der Tabelle stehen in der Spalte A ebenfalls diese sechsstelligen Zahlen, In der Spalte D steht jeweils ein Datum.
Ich möchte jetz...
12.09.2008 07:20:00
Thread-ID: 1009268
10 Beiträge
einen Kreis einfügen in bild dynamisch
Karel

Hallo Leute,
mochte gern ein vordefinierten Rote und / oder Grüne Kreis einfügen in mehrere Bilder, zum markierungszwecken bestimmten bereichen in einer Bild.
Kreis muss da Positioniert werden wo mauszeicher sich befindet und uber Rechter Maustast Menu aufruf sein, da kann mann dann be...
23.09.2008 21:06:00
Thread-ID: 1011887
3 Beiträge

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
1
5
2
3
8
1
1
1
9
2
2
4
4
4
3
4
9
3
4
10
2
1
4
4
4