Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleiches Kopieren

Forumthread: Gleiches Kopieren

Gleiches Kopieren
20.11.2008 15:26:00
Andy
Guten Tag die Damen und Herren,
Ich habe eine Tabelle in der Kontodaten vorliegen. Unter anderem sind in den Spalten die Summen, die Konten und die Bezeichnungen. nun würde ich gerne auf einem neuen Tabellenblatt die Positionen anlegen, die alle das gleiche Konto haben.
Ist das per VBA möglich? Ich weiss, dass es mit einer Pivot-Tabelle geht. Jedoch habe ich da noch weniger Ahnung als in VBA.
Könnt Ihr mir helfen?
vielen Dank und Gruß
Andy
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleiches Kopieren
20.11.2008 15:31:22
Tino
Hallo,
und wie soll bestimmt werden welches Konto in dieses neue Tabellenblatt soll?
Gruß Tino
AW: Gleiches Kopieren
20.11.2008 15:48:00
Andy
Hallo Tino,
ich habe es wohl nicht gut beschrieben. Daher ein neuer Versuch.
Ich habe verschiedene Anweisungsposten in vielen Datensätzen der Tabelle.
z.B.
in Spalte A steht die Bezeichung: Zahlung für Spielzeug
in Spalte B steht der Betrag: 22,50 €
in Spalte C steht das Konto von dem dieser Betrag bezahlt wird: 4422
und davon habe ich hunderte von Datensätzen. Nun gibt es ca. 20 verschiedene Konten in Spalte C und ich möchte auf dem nächsten Tabellenblatt alle Posten mit dem gleichen Konto (also z.B. 4422) untereinander haben.
Ist das möglich?
Danke für Deine Hilfe und Gruß
Andy
Anzeige
AW: Gleiches Kopieren
20.11.2008 16:08:00
Tino
Hallo,
soweit habe ich dies auch verstanden, aber die Frage von mir ist immer noch nicht beantwortet.
"Nun gibt es ca. 20 verschiedene Konten in Spalte C"
Wie soll bestimmt werden, welches von diesen 20 Konten in die nächste Tabelle gefiltert werden soll.
Über eine Kombinationsfeld oder Inputbox?
Hier mal ein Beispiel mit InputBox
Option Explicit

Sub Makro1()
Dim Bereich As Range, ErgBereich As Range
Dim Konto As String

  Konto = InputBox("Kontoname Eingeben")
With Application
 .ScreenUpdating = False
    With Tabelle1
        Set Bereich = .Range("C1", .Cells(.UsedRange(.UsedRange.Cells.Count).Row, 3))
        Set ErgBereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
        ErgBereich.FormulaR1C1 = "=IF(RC3=" & Konto & ",TRUE,"""")"
    End With
  If Application.WorksheetFunction.CountIf(ErgBereich, True) <> 0 Then
        Set Bereich = ErgBereich.SpecialCells(xlCellTypeFormulas, 4).EntireRow

        Bereich.Copy
        Tabelle2.Range("A2").PasteSpecial
   Else
         MsgBox "Dieses Konto gibt es nicht!", vbCritical
  End If
         .CutCopyMode = False
        ErgBereich.Clear
 .ScreenUpdating = True
End With


End Sub


Gruß Tino

Anzeige
AW: Gleiches Kopieren
20.11.2008 16:29:00
Nico
Hallo, gerade eben gab es ein ähnliches Problem!
schau mal unter:

Die Datei https://www.herber.de/bbs/user/56990.xls wurde aus Datenschutzgründen gelöscht


nach.
Hier wurde zwar die Kategorie ausgewertet, aber das kannst du ändern in die Kontospalte
Anzeige
AW: Gleiches Kopieren
21.11.2008 10:27:43
Andy
Hallo Nico,
vielen Dank für die Antwort. Aber leider ist das nicht das, was ich wollte. In Deiner Datei hast Du in der Spalte C verschiedene Konten. Ich möchte, dass z.B. alle Daten aus der Spalte A und B die das Konto "Games, Learning" haben auf dem neuen Tabellenblatt aufgelistet werden. Hier z. B. in Spalte A und B auf dem neuen Tabellenblatt und die ein weiteres Konto haben in Spalte C und D und so wieter.
Ist das verständlich?
Gruß Andy
Anzeige
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 11:22:00
Thread-ID: 1001444
11 Beiträge
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Anzeige
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Anzeige
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 Beiträge
Anzeige
Kopieren von Tabellenblatt
Tabellenblatt

Hallochen,
wie kann ich ein Tabellenblatt um weitere 100Seiten kopieren (alle in einer Datei)? Ich kenne nur: rechte mausklick, kopieren, usw. Leider dauert diese Vorgang ewig bis ich 100 Seiten fertig kopieren kann.
Danke für den Tipps im Voraus!!
Gruß,
Pia
17.08.2008 21:46:04
Thread-ID: 1002471
7 Beiträge
Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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