Office: Text in nächste freie Zeile einfügen

Hallo,

ich bin absoluter Neuling in Sachen VBA und komme, obwohl schon gegoogelt wie verrückt, nicht zu meinem Ergebnis... :-(

Mein Problem:
Ich habe drei Tabellenblätter...
Tabellenblatt 1
Tabellenblatt 2
Tabellenblatt 3

1.) Ich will nun aus Tabelle 1 A2 bis B20 kopieren und dann in Tabelle 3 einfügen.
2.) Anschließend will ich aus Tabelle 2 A2 bis B20 kopieren und in Tabelle 3 einfügen und zwar direkt nach dem Eingefügtem von Tabelle 1.

Es soll quasi immer in die nächte freie Zelle eingefügt werden, so dass nichts überschrieben wird, falls sich mal in Zeilenanzahl von 1.) ändert.

Mit Makro aufzeichnen erhalte ich Folgendes:
Sub Kostenstellenkonsolidierung_test()
'
' test Makro
' Makro am 31.05.2010 von Müller aufgezeichnet
'

'
Sheets("Tabelle 1").Select
Range("A2:B20").Select
Selection.Copy
Sheets("Tabelle 3").Select
Sheets("Tabelle 2").Select
Range("A2:B20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle 3").Select
Range("A21").Select
ActiveSheet.Paste
End Sub


Problem ist dann, dass immer etwas von dem ersten Teil überschrieben wird, wenn nicht mehr 20 Zeilen, sondern z.B. 22 Zeilen kopiert werden!

Wär echt super, wenn mir jemand helfen könnte!!!

:)

 

hallo
teste mal.geht wenn jeweils in A was drinsteht.
Code:

gruss hary

 

WOW! Super, klappt wunderbar... DAAAAANKE!!!

kleine Ergänzung: Kann ich dem Makro jetzt noch sagen, dass es von den kopierten Zellen jene NICHT einfügen soll, wo in Spalte A "Gesamtergebnis " steht??? Wenn ja, wie?

 

Hallo
eine Moeglichkeit.
Code:

gruss hary

 

was soll ich sagen.... hat wieder SUPER funktioniert!!! Vielen DANK!

 

Ich mal wieder...

Vorab: Makro läuft super!

Jetzt würde ich gerne noch was ergänzen... und zwar:

Ich habe ja zwar Spalten kopiert und eingefügt.
Inhalt könnte so aussehen:
Spalte A Zeile 1 Apfel
Spalte B Zeile 1 5 Stück

usw. nach unten, mit verschiedenen Stückzahlen und verschiedene Früchte.

Wenn ich jetzt mehrfach das gleiche in Spalte A(z.B. Apfel in verschiedenen Zeilen mit verschiedenen Stückzahlen) stehen hab, soll er mir diese gleichen Werte addieren.

Wie mach ich das in VBA?

 

Moin, mdausb,

wenn nur die Stückzahl (also ohne Zusatz) in Spalte B steht und der gesuchte Begriff in E1: WorksheetFunction.SUMIF(Range("A:A"),Range("E1"),Range("B:B")):

Tabelle1

	A	B	C	D	E	F
1	Art	Anzahl			Apfel	6
2	Apfel	5			Birne	3
3	Birne	3
4	Apfel	1

Zelle	Formel
F1	=SUMMEWENN(A:A;E1;B:B)
F2	=SUMMEWENN(A:A;E2;B:B)

Ausgabe im Direktfenster:
Code:

Oder eine Pivottabelle einsetzen, um die Ergebnisse zu erhalten - hier kann dann bei vorhandenen Datumswerten noch eine Auswertung nach Tagen, Wochen, Monaten, Quartalen oder Jahren erfolgen...

 

WOW!Vielen Dank für die schnelle Antwort.

Dein erster Lösungsvorschlag entspricht ja quasi einem Sverweis,oder?

Das Problem ist nur, dass ich keine Zelle mit einem extra Suchbegriff habe (bei dir E1).

Ich will dass Excel automatisch die Spalte A nach gleichen Bezeichnungen z.B. Apfel absucht und dann diese zusammenfasst. So dass in der Spalte A nur noch einmal Apfel steht, einmal Kirsche usw. mit den dazugehörigen,addierten Stückmengen.

 

Weiß keiner Rat???

Oder ist das Problem schlecht von mir formuliert?

 

Moin, mdausb,

Bei einer direkten Eingabe wird hinter der Tabelle das Ereignis Worksheet_Change ausgelöst, was als Parameter Target erwartet (die Angabe, in welchem Bereich etwas verändert wurde). Und genau dieses Target liefert bei einer Zelle auch den Wert und die Adresse, die benötigt wird. Es bleibt dann aber zu fragen, was mit den anderen Fundstellen zu geschehen hat - diese sollten vor dem Eintrag der Gesamtmenge gelöscht werden..

 

Das versteh ich nicht... :-(

Folgendes Beispiel:
Apfel 5 Stück
Birne 10 Stück
Banane 3 Stück
Apfel 5 Stück

Jetzt will ich, dass als Ergebnis (nachdem ich das Makro ausgeführt habe) folgendes da steht:
Apfel 10 Stück
Birne 10 Stück
Banane 3 Stück

Im Prinzip macht sowas ja eine Pivottabelle. Kann ich diesen Schritt der Pivottabelle auch so in ein Makro eintragen???

 

Moin, mdausb,

eine Pivottabelle belässt die Daten aber meistens bestehen, während sie bei Dir verdichtet werden sollen.

Code kommt hinter die Tabelle:

Code:

Bitte beachten, dass eine Änderung der Anzahl für einen Artikel kein hier abgefangenes Ereignis auslöst. sondern nur die direkt Eingabe der Artikel in der Spalte A...

Übrigens: schön, dass Du willst - dann programmiere doch selbst, damit Du siehst, dass VBA fast immer etwas Anderes tut als Du meinst, der Anwendung mitgeteilt zu haben (VBA kann keine Gedanken lesen *grins )... *wink.gif*

 

Guten Tag

Ich schreibe gerade ein Makro zur Auswertung meiner Daten und dabei ist mir Dein Code vom Mai 2010 sehr hilfreich (ist leider schon länger her, ich weiss...). Allerdings wäre es für meine Zwecke praktisch, wenn ich in

Sheets("Tabelle1").Range("A2:B" & Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Tabelle3").Range("A" & Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1)

das "A2:B" irgendwie ersetzen könnte durch Cells(2, 1), Cells(VariableA, VariableB), da die Anzahl zu kopierender Spalten/Zeilen variiert je nach Datensatz. Aber ich krieg leider die Syntax nicht richtig hin. Kannst Du mir vielleicht helfen?

Vielen Dank im Voraus!

 

Hallo makröli,

versuch es mal so: Code:

Gruß von Luschi
aus klein-Paris

 

Perfekt es funktioniert, herzlichen Dank!!!!