Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus einem Bereich auslesen

Werte aus einem Bereich auslesen
19.08.2007 11:40:00
ch
Hallo liebe Forumsmitglieder,
nach langem Suchen habe ich für mein "kleines" Problem keine Lösung gefunden.
Vielleicht kann mir ja einer helfen, das wäre echt nett :
Ich möchte die Werte, welches Textwerte sind und über Tabelle1 verstreut sind, und Leerzellen sind auch dazwischen, Aufgelistet in die erste Spalte der Tabelle2 geschrieben haben.
In der Auflistung möchte ich keine doppelten Einträge haben.
Ich kann es nicht, vielleicht habe ich auch einen Bericht überlesen.
Kann mir jemand bitte helfen.
Vielen Dank schon mal im voraus für eure Mühen.
Liebe Grüsse aus Rostock
Ch.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus einem Bereich auslesen
19.08.2007 13:21:09
fcs
Hallo Ch.
hier mein Lösungsvorschlag
Gruß
Franz

Sub TexteZusammensuchen()
Dim wks1 As Worksheet, wks2 As Worksheet, Zelle As Range
Dim Zeile As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Application.ScreenUpdating = False
With wks2
'Alte werte in Spalte A Löschen
.Columns(1).Clear
'Spaltentitel eintragen
.Cells(1, 1).Value = "Einträge Tab1"
'Text aus allen Zellen mit Inhalt in SPalte A der Tabelle 2 eintragen
For Each Zelle In wks1.UsedRange
If Not IsEmpty(Zelle) Then
'        Zelle.Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
'oder
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0) = Zelle.Text 'oder Zelle.Value
End If
Next
'Spalte A sortieren
.Columns(1).Sort key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
'Doppelte löschen
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(Zeile, 1) = .Cells(Zeile - 1, 1) Then
.Rows(Zeile).Delete shift:=xlShiftUp
End If
Next
End With
Application.ScreenUpdating = True
wks2.Activate
End Sub


Anzeige
Ergänzung: für kleine Bereiche mit Formeln
19.08.2007 16:21:56
Christian
Hallo Ch. ,
kleine Ergänzung, damit auch nur Text aufgelistet wird:
https://www.herber.de/bbs/user/45196.xls
MfG Christian

Anzeige
AW: für kleine Bereiche mit Formeln
19.08.2007 16:30:00
Gerd
Hallo Ch.,
noch ein Vorschlag per VBA-Code. 

Sub test()
Dim rngWerte As Range, vnt(), x As Long, Zelle As Range, y As Long
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Set wksQuelle = ThisWorkbook.Worksheets("Tabelle1")
Set wksZiel = ThisWorkbook.Worksheets("Tabelle2")
wksziel.Columns(1).ClearContents
wksZiel.Cells(1, 1).Value = "Werte aus Tabelle1"
Set rngWerte = wksQuelle.UsedRange.SpecialCells(xlCellTypeConstants)
ReDim vnt(1 To rngWerte.Count, 1 To 1)
x = 1
For Each Zelle In rngWerte
y = 0
On Error Resume Next
y = WorksheetFunction.Match(CStr(Zelle.Text), vnt, 0)
On Error GoTo 0
If y = 0 Then
vnt(x, 1) = Zelle.Text
x = x + 1
End If
Next
With wksZiel
.Range(.Cells(2, 1), .Cells(UBound(vnt, 1) + 1, 1)).Value = vnt
.Columns(1).Sort key1:=.Cells(2, 1), header:=xlYes
End With
End Sub


Gruß Gerd

Anzeige
AW: Werte aus einem Bereich auslesen
20.08.2007 09:00:00
ch
Halllo lieber Christian,
lieber Gerd L und lieber fcs,
ich habe alle Tipps ausprobiert und alle funktionieren so wie ich es mir vorgesellt habe !
Echt Super. 1000 Dank.
Ich hätte nicht gedacht das sowas geht.
Naja Excel eben ! ....wenn man´s kann ;-)
Danke euch allen !
Ich hoffe ich kann mal was zurückgeben.
Gruß
ch

307 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 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
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 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
8
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4