Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
16.04.2024 10:29:44
Mittelwert für Zeilen mit gleichen Zeitstempel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Tabelle übernehmen

Daten aus Tabelle übernehmen
17.08.2014 14:39:18
Kocher
Hallo Zusammen,
bin neu hier und hätte eine Frage, wie ich das per Formel lösen könnte:
Ich habe Messwertaufzeichnungen:
In der ersten Spalte ist die Phase der Messung gekennzeichnet, in der zweiten der Messwert.
Nun möchte ich alle Daten einer Phase in ein neues Excel - Blatt transferieren.
So sieht das aus
A B
100 -218
100 -216
100 -215
100 -211
100 -209
200 -209
200 -220
200 -223
200 -225
Nun würde ich alle Werte aus Spalte B kopieren, welche in der Spalte a eine 200 stehen haben.
Sicherlich könnte ich das per Makroaufzeichnung und Filter machen.
Bisher markiere ich alle Werte in Spalte B, welche in Spalte A eine "200" haben, kopiere Sie und füge sie in einer neuen Tabelle ein.
Bisher hab ich nur SVerweis gefunden. Dieser gibt mir nur den höchsten Wert zurück.
Über Hilfe wäre ich sehr dankbar.
Schönen Sonntag....Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Tabelle übernehmen
17.08.2014 17:42:24
Crazy
Hallo Michael
dieses Makro kopiert dir alle Werte aus Spalte B in Spalte A auf Tabelle 2 
Sub kopieren()
Dim Suchergebnis As Range
Dim lngZielZeile As Long
Dim firstAddress
lngZielZeile = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Tabelle1")
With .Range("a1:a" & .Cells(Rows.Count, 1).End(xlUp).Row)
Set Suchergebnis = .Find(200, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
firstAddress = Suchergebnis.Address
Do
Sheets("Tabelle2").Cells(lngZielZeile, "A").Value = Suchergebnis.Offset(0,  _
1).Value
lngZielZeile = lngZielZeile + 1
Set Suchergebnis = .FindNext(Suchergebnis)
Loop While Not Suchergebnis Is Nothing And Suchergebnis.Address  firstAddress
End If
End With
End With
End Sub

MfG Tom
Anzeige

307 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
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
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
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
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
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
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
1
1
1
9
2
7
2
2
4
5
4
2
1
4
1
1
5
4
10
6
5
3
1
1