Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwert suchen und Spalte kopieren

Zellwert suchen und Spalte kopieren
06.10.2004 13:18:43
christoph
Hallo zusammen,
vielleicht könnt Ihr mir ja helfen:
Ich möchte auf Arbeitsblatt "1" eine Übersicht erstellen.Diese Übersicht soll Summenzeilen abbilden, die sich auf Arbeitsblatt "2" befinden. Auf Arbeitsblatt 2 befinden sich mehrere Tabellen, deren Inhalt jeweils unter der Spalte "Summe" zusammengezählt werden, die Tabellen sind aber unterschiedlich lang. Es gibt also mehrere "Summenzeilen" und diese tauchen in "unregelmäsigen Zeilenabstand" auf.
Gibt es eine Funktion die ungefähr das folgende macht:
Suche auf Blatt "2" in Spalte "A" nach dem Wort "Summe" und kopiere die entsprechende Zeile nach Arbeitsblatt "1" in Zeile 3!Bei der nächsten gefundenen Summenzeile, kopiere die Inhalte in Blatt "1" Zeile 4 usw...
Wär super wenn mir jemand helfen könnte!
christoph

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwert suchen und Spalte kopieren
Klaus
Hallo Christoph,
probier dies mal:

Sub Suche()
Dim s As String, x As Integer
Dim Erg1 As Variant, Erg2 As Variant
Dim Quelltabelle As Worksheet
Dim Zieltabelle As Worksheet
s = "Summe"
x = 3
Set Quelltabelle = Sheets("Tabelle2")
Set Zieltabelle = Sheets("Tabelle1")
With Quelltabelle
.Activate
.Range("a1").Activate
Set Erg1 = .Columns(1).Find(s)
If Not Erg1 Is Nothing Then
Erg2 = Erg1.Address
Do
Erg1.Activate
Set Erg1 = .Columns(1).FindNext(After:=ActiveCell)
Rows(ActiveCell.Row).Copy
Zieltabelle.Cells(x, 1).PasteSpecial Paste:=xlValues
x = x + 1
On Error Resume Next
If Erg1.Address = Erg2 Then Exit Do
Loop
End If
.Range("a1").Select
End With
Application.CutCopyMode = False
With Zieltabelle
.Activate
.Range("a1").Select
End With
End Sub

Beim erneuten Aufruf werden die Zeilen in Tabelle1 nicht von selber gelöscht sondern nur überschrieben. Sollten sich also weniger "Zielzeilen" in Tabelle2 als vorher befinden, bleiben alte bzw. falsche Zeilen im Zielblatt bestehen ! Alte Ergebnisse also vorher am Besten löschen !
Gruß Klaus
Anzeige
AW: Zellwert suchen und Spalte kopieren
07.10.2004 13:19:36
christoph
Hallo Klause,
vielen Dank für deinen Macro, leider klappts noch nicht so ganz.
ich hab dir mal die beiden tabellen hochgeladen, https://www.herber.de/bbs/user/11786.xls
vielleicht gibt es ja auch eine viel einfachere variante als ein macro, allerdings glaub ich funktioniert das mit sverweis nicht so wie ich es möchte. wie schon gesagt, sollen in der Zieltabelle die Summenzeilen aufgelistet werden die in der Quelltabelle stehen. Das ganze soll so ablaufen, dass man die Quelltabelle bearbeitet, wodurch sich die eine Summenzeile ändern kann oder eben eine neue Summenzeile entstehen kann und die Zieltabelle soll (aus Gründen der Übersichtlichkeit) nur die Summenzeile darstellen.
P.S. In der Quelltabelle sind einige felder "eingeklappt" (Erklärung, Bemerkung,Kopiervorlage) diese sollen nicht übertragen werden!
Vielen dank für deine Bemühungen
christoph
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Spalte nach Schlüsselwörtern auswerten
Mumber

Hallo Experten,
brauche dringend Eure Unterstützung.
Ich würde gerne im Rahmen einer Auswertung eine bestimmte Spalte (Text) mittels VBA nach bestimmten Schlüsselwörtern durchsuchen lassen und bei Treffer eine dem Schlüsselwort entsprechende Kategoriebezeichnung in anderer Spalte (glei...
08.09.2008 11:31:00
Thread-ID: 1008091
5 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 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
1
5
4
8
4
3
7
4
2
14
4
2
2
20
7
4
4
2
6
4
6
6
12
11
3