Microsoft Excel

Herbers Excel/VBA-Archiv

Daten aus Tabelle übernehmen

Betrifft: Daten aus Tabelle übernehmen von: Kocher
Geschrieben am: 17.08.2014 14:39:18

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

  

Betrifft: AW: Daten aus Tabelle übernehmen von: Kocher
Geschrieben am: 17.08.2014 15:04:29

https://www.herber.de/bbs/user/92159.xlsx


  

Betrifft: AW: Daten aus Tabelle übernehmen von: Crazy Tom
Geschrieben am: 17.08.2014 17:42:24

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


 

Beiträge aus den Excel-Beispielen zum Thema "Daten aus Tabelle übernehmen"