Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbereich aus Tabelle suchen & kopieren

Datenbereich aus Tabelle suchen & kopieren
18.07.2007 15:20:00
Klaus
Hallo allerseits,
nach langer Abwesenheit benötige ich mal wieder eure Hilfe...
Ich habe eine Tabelle (Tabelle 2) aus der ich bestimmte Zeilen in Tabelle 3 kopieren möchte. In Spalte A (Tabelle 2) steht dabei immer der Suchbegriff, in den weiteren Spalten stehen die Daten. Dieser Suchbegriff ist allerdings nur ein Teil des Zelleneintrages in Spalte A.
Diese gesuchten Zeilen können unterschiedlich viele sein, und an unterschiedlichen Stellen stehen (in Spalte A).
Wie kann ich das per VB realisieren, dass ich irgendwie den Suchbegriff eingebe, dann die Tabelle 2 / Spalte A durchsucht wird, und sämtliche Zeilen die dem gesuchten entsprechen, werden komplett in Tabelle 3 eingefügt...?
Gruß,
Klaus

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich aus Tabelle suchen & kopieren
18.07.2007 15:22:00
Armin
Hallo Klaus,
Beispiel wäre hilfreich
Gruß Armin

AW: Datenbereich aus Tabelle suchen & kopieren
18.07.2007 16:02:10
Klaus
So, Beispiel ist hier zu finden:

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


Wenn ich jetzt zB in der Tab. 1 in das gelbe Feld "c" eingebe, und einen Button (habe ich im Excel-File vergessen) drücke, dann soll er in der Tabelle 2 in der Spalte A nach den Zelle suchen, die mit "c" beginnen, egal was noch dahinter steht. Er soll dann die Zeilen 8, 9 , 10 finden und diese kompletten zeilen einfach nach Tabelle 3 kopieren und in "A1" anfangen einzufügen...

Anzeige
AW: Datenbereich aus Tabelle suchen & kopieren
18.07.2007 16:14:00
Rudi
Hallo,

Sub tt()
Dim vntDaten, vntTmp(), i As Long, j As Integer, iTmp As Long
Dim strSuch As String
strSuch = InputBox("Suchbegriff?")
If strSuch  "" Then
vntDaten = Sheets("Tabelle2").Range("A1").CurrentRegion
For i = 1 To UBound(vntDaten, 1)
If InStr(LCase(vntDaten(i, 1)), LCase(strSuch)) > 0 Then
iTmp = iTmp + 1
ReDim Preserve vntTmp(1 To UBound(vntDaten, 2), 1 To iTmp)
For j = 1 To UBound(vntDaten, 2)
vntTmp(j, iTmp) = vntDaten(i, j)
Next
End If
Next i
If iTmp > 0 Then
With Sheets("Tabelle3")
.Cells.ClearContents
.Range(.Cells(1, 1), .Cells(iTmp, UBound(vntDaten, 2))) = WorksheetFunction. _
Transpose(vntTmp)
End With
End If
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Datenbereich aus Tabelle suchen & kopieren
18.07.2007 16:19:28
Rudi
Hallo,
nochmal angepasst:

Sub tt()
Dim vntDaten, vntTmp(), i As Long, j As Integer, iTmp As Long
Dim strSuch As String
strSuch = InputBox("Suchbegriff?")
If strSuch  "" Then
vntDaten = Sheets("Tabelle2").Range("A1").CurrentRegion
For i = 1 To UBound(vntDaten, 1)
If LCase(vntDaten(i, 1)) Like LCase(strSuch) & "*" Then
iTmp = iTmp + 1
ReDim Preserve vntTmp(1 To UBound(vntDaten, 2), 1 To iTmp)
For j = 1 To UBound(vntDaten, 2)
vntTmp(j, iTmp) = vntDaten(i, j)
Next
End If
Next i
If iTmp > 0 Then
With Sheets("Tabelle3")
.Cells.ClearContents
.Range(.Cells(1, 1), .Cells(iTmp, UBound(vntDaten, 2))) = _
WorksheetFunction.Transpose(vntTmp)
End With
End If
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Datenbereich aus Tabelle suchen & kopieren
19.07.2007 14:38:59
Klaus
Hallo, das funktioniert sehr gut, so wie ich es haben wollte danke soweit.
Benötige aber noch eine kleine Änderung, weiß aber nicht wo ich ansetzten soll. Das Einfügen der kopierten Daten (in Tabelle 3) soll nicht in Zelle "A1" beginnen, sondern in Zelle "A2". Was muss ich da ändern?

AW: Datenbereich aus Tabelle suchen & kopieren
18.07.2007 19:54:35
Rudi
Hallo,
ganz nett. Allerdings wollte er die komplette Zeile kopiert haben.
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

Anzeige
AW: Datenbereich aus Tabelle suchen & kopieren
19.07.2007 15:37:49
Klaus
Hallo, das funktioniert sehr gut, so wie ich es haben wollte danke soweit.
Benötige aber noch eine kleine Änderung, weiß aber nicht wo ich ansetzten soll. Das Einfügen der kopierten Daten (in Tabelle 3) soll nicht in Zelle "A1" beginnen, sondern in Zelle "A2". Was muss ich da ändern?

AW: Datenbereich aus Tabelle suchen & kopieren
19.07.2007 15:48:00
Horst
Hallo Klaus

.Range(.Cells(1, 1), .Cells(iTmp, UBound(vntDaten, 2))) = _
WorksheetFunction.Transpose(vntTmp)


Ich schätze mal, dass du dort Cells(1, 1) durch Cells(2, 1) solltest.
Gruß Horst

AW: Datenbereich aus Tabelle suchen & kopieren
19.07.2007 16:03:35
Klaus
Hallo Horst, dachte ich auch schon, funktioniert aber nicht, da er dann einfach eine Zeile weniger kopiert.
Er fügt zwar in A2 ein, aber kopiert nur 3 statt der 4 Zeilen. Er läßt die letzte Zeile einfach weg...?
Anzeige

302 Forumthreads zu ähnlichen Themen

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
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Automatisiert Daten aus versch. Tabellen kopieren?
Henrick

Hallo Forumsteilnehmerinnen und -teilnehmer!
Ich bin kein großer Excel-Experte und kein Progammierer. Ich habe als Controller solide Anwenderkenntnisse. Ich bin dabei mein Berichtswesen in Excel neuaufzubauen (da ist in den letzten Jahren hier viel versäumt worden). Nun zu meinem Problem:<...
29.04.2009 16:33:52
Thread-ID: 1071956
8 Beiträge
Daten aus Tabellenblättern in ein Blatt kopieren
Jens

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlP...
15.07.2009 12:25:07
Thread-ID: 1088795
5 Beiträge
Tabellenblatt kopieren ohne Zellbezüge (VBA)
S.

Liebe Herber Excel-Gemeinde,
ich kopiere ein Tabellenblatt aus einem bestehenden Excel-Dokument in ein neues Dokument mit VBA. Dazu kopiere ich einfach das ganze Sheet, da es auch Diagramme enthält. Allerdings kopiert er bei dieser Methode auch die Zellbezüge zur Originaldatei mit. Dies möc...
11.08.2009 11:38:01
Thread-ID: 1094961
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
1
2
1
1
4
2
7
4
3
3
2
1
7
1
2
8
2
2
1
1
1
6
1
7