Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA -Wert suchen-Zeilen aus anderer Mappe einlesen

Forumthread: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen

VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
25.12.2014 10:56:13
Markus
Guten Morgen an das Herber Excel-Forum,
ich suche eine Möglichkeit aus einer geöffneten Mappe bestimmte Daten in meine Mappe zu importieren (VBA).
Der Suchwert in meiner Zieldatei steht in B3 (Zahl). Dieser soll in der Quelldatei in der Spalte A1:A5000 gesucht werden. Der Wert kann mehrmals vorkommen. Es sollen alle Zeilenwerte die dem Suchwert entsprechen (C:L) in meine Zieldatei C2:Lx) eingefügt werden.
Der erste Wert aus der Spalte B soll nach D3 eingelesen werden.
Mit einer SVerweis Formel geht das schonmal, aber da ich die importierten Daten noch teilweise bearbeiten muss ist der weg über VBA der bessere.
Kann mir da jemand weiter helfen?
Vielen Dank und frohe Weihnachtsfeiertage.

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
29.12.2014 09:25:16
Mullit
Hallo,
Du könntest das z.B. ganz klassisch mit der Find-Methode angehen, oder Du versuchst Deine Formeln direkt in VBA zu verbraten...
Gruß,

AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
29.12.2014 18:40:13
Markus
Hallo Mullit,
vielen Dank für Deine Antwort.
Ich habe ein wenig gestöbert und für mich folgenden Ansatz gefunden.
Option Explicit
Private Sub CommandButton1_Click()
Dim rngZelle As Range
Dim strSuchwort As String
strSuchwort = ThisWorkbook.Sheets("Tabelle1").Range("B1")
For Each rngZelle In Workbooks("Test.xlsx").Worksheets("Tabelle1").Range("A2:A5000")
If rngZelle = strSuchwort Then
rngZelle.EntireRow.Copy Sheets("Tabelle1").Range("A" & Sheets("Tabelle1").Cells( _
Rows.Count, 1).End(xlUp).Row + 1)
End If
Next rngZelle
End Sub
was ich noch anpassen sollte:
1.) mit Entire.Row wird ja die ganze Zeile eingelesen. Es sollte aber nur der Bereich C bis L der jeweiligen Trefferzeile kopiert werden.
2.) kopiert werden sollten nur Werte
und 3. der Zielbereich sollte bei B8 anfangen
Kannst Du mir da einen Tipp geben.
Vielen Dank.

Anzeige
AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
29.12.2014 22:53:25
Mullit
Hallo Markus,
null problemo, ich mach sowas meistens mit der Find-Methode.
Alternativ könntest Du die Treffer auch in ein Array packen und das Öffnen der Datei bei Bedarf auch noch automatisieren...
Option Explicit

Public Sub prcSuch()
Const SOURCE_NAME As String = "Test.xlsx" 'Quelldatei 
Dim objRange As Range, objUnion As Range
Dim strFirstAddress As String, strName As String
Dim wksSource As Worksheet
Dim lngIndex As Long
With Application
   .ScreenUpdating = False
    On Error Resume Next
    strName = Workbooks(SOURCE_NAME).Name
    If Err Then
      On Error GoTo 0
      MsgBox "Die Datei '" & SOURCE_NAME & "' ist noch nicht geöffnet!", _
         vbExclamation, "Bitte Datei öffnen"
    Else
      On Error GoTo 0
      Set wksSource = Workbooks(SOURCE_NAME).Worksheets("Tabelle1")
      With ThisWorkbook.Worksheets("Tabelle1") 'Zieldatei 
          .Cells(2, .UsedRange.Columns(1).Column).Resize(.UsedRange.Rows.Count - 1, _
            .UsedRange.Columns.Count - 1).ClearContents
          With wksSource.Cells(2, 1).Resize(4999, 1)
              Set objRange = .Find(What:=ThisWorkbook.Worksheets("Tabelle1").Cells(1, 2), _
                 LookIn:=xlValues, LookAt:=xlWhole)
              If Not objRange Is Nothing Then
                  strFirstAddress = objRange.Address
                  Do
                     With wksSource.Cells(objRange.Row, 3)
                         If Not objUnion Is Nothing Then
                           Set objUnion = Union(objUnion, .Resize(1, 10))
                         Else
                           Set objUnion = .Resize(1, 10)
                         End If
                     End With
                     Set objRange = .FindNext(After:=objRange)
                  Loop While Not objRange Is Nothing And objRange.Address <> strFirstAddress
              End If
          End With
          For lngIndex = 1 To objUnion.Areas.Count
             objUnion.Areas(lngIndex).Copy
             .Cells(7 + lngIndex, 2).PasteSpecial xlPasteValues
          Next
      End With
      .CutCopyMode = False
      Set objRange = Nothing
      Set objUnion = Nothing
      Set wksSource = Nothing
    End If
    .ScreenUpdating = True
End With
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
30.12.2014 00:06:42
Mullit
Hallo Markus,
der ganze Union-Crap kann übrigens noch raus...
Option Explicit

Private Sub CommandButton1_Click()
 Call prcSuch
End Sub

Private Sub prcSuch()
Const SOURCE_NAME As String = "Test.xlsx"
Dim objRange As Range
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim strFirstAddress As String, strName As String
Dim lngIndex As Long
With Application
   .ScreenUpdating = False
    On Error Resume Next
    strName = Workbooks(SOURCE_NAME).Name
    If Err Then
      On Error GoTo 0
      MsgBox "Die Datei '" & SOURCE_NAME & "' ist noch nicht geöffnet!", _
        vbExclamation, "Bitte Datei öffnen"
    Else
      On Error GoTo 0
      Set wksSource = Workbooks(SOURCE_NAME).Worksheets("Tabelle1") 'Quelldatei 
      Set wksTarget = ThisWorkbook.Worksheets("Tabelle1") 'Zieldatei 
      With wksTarget
          .Cells(2, .UsedRange.Columns(1).Column).Resize(.UsedRange.Rows.Count - 1, _
            .UsedRange.Columns.Count - 1).ClearContents
      End With
      With wksSource.Cells(2, 1).Resize(4999, 1)
          Set objRange = .Find(What:=wksTarget.Cells(1, 2), LookIn:=xlValues, LookAt:=xlWhole)
          If Not objRange Is Nothing Then
              strFirstAddress = objRange.Address
              Do
                 lngIndex = lngIndex + 1
                 wksSource.Cells(objRange.Row, 3).Resize(1, 10).Copy
                 wksTarget.Cells(7 + lngIndex, 2).PasteSpecial xlPasteValues
                 Set objRange = .FindNext(After:=objRange)
              Loop While Not objRange Is Nothing And objRange.Address <> strFirstAddress
          End If
      End With
      .CutCopyMode = False
      Set objRange = Nothing
      Set wksSource = Nothing
      Set wksTarget = Nothing
    End If
    .ScreenUpdating = True
End With
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
30.12.2014 07:27:05
Markus
Guten Morgen Mullit,
vielen Dank. Hatte es gestern noch mit dem ersten code versucht. Da wurden aber nicht alle Datensätze gefunden. Der jetztige liefert das richtige ergebnis.
Ich teste heute nochmals.
Danke schonmal.

AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
30.12.2014 11:25:48
Mullit
Hallo Markus,
prima, die Codes sollten eigentlich das gleiche Ergebnis liefern, hab' Dir mal in vorgelagerter Silvesterstimmung noch das Öffnen miteingebaut...
Option Explicit

Private Sub CommandButton1_Click()
 Call prcSuch
End Sub

Private Sub prcSuch()
Const SOURCE_NAME As String = "Test.xlsx"
Dim objRange As Range
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim strFirstAddress As String, strName As String
Dim lngIndex As Long
With Application
   .ScreenUpdating = False
    On Error Resume Next
    strName = Workbooks(SOURCE_NAME).Name
    If Err Then
      On Error GoTo 0
      With ThisWorkbook
          Workbooks.Open .Path & "\" & SOURCE_NAME
          .Activate
      End With
    Else: On Error GoTo 0
    End If
    Set wksSource = Workbooks(SOURCE_NAME).Worksheets("Tabelle1") 'Quelldatei 
    Set wksTarget = ThisWorkbook.Worksheets("Tabelle1") 'Zieldatei 
    With wksTarget
        .Cells(2, .UsedRange.Columns(1).Column).Resize(.UsedRange.Rows.Count - 1, _
          .UsedRange.Columns.Count - 1).ClearContents
    End With
    With wksSource.Cells(2, 1).Resize(4999, 1)
        Set objRange = .Find(What:=wksTarget.Cells(1, 2), LookIn:=xlValues, LookAt:=xlWhole)
        If Not objRange Is Nothing Then
            strFirstAddress = objRange.Address
            Do
               lngIndex = lngIndex + 1
               wksSource.Cells(objRange.Row, 3).Resize(1, 10).Copy
               wksTarget.Cells(7 + lngIndex, 2).PasteSpecial xlPasteValues
               Set objRange = .FindNext(After:=objRange)
            Loop While Not objRange Is Nothing And objRange.Address <> strFirstAddress
        End If
    End With
    .CutCopyMode = False
    .ScreenUpdating = True
End With
Set objRange = Nothing
Set wksSource = Nothing
Set wksTarget = Nothing
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: VBA -Wert suchen-Zeilen aus anderer Mappe einlesen
30.12.2014 12:15:53
Mullit
Hallo Markus,
für noch mehr Speed kannst Du Dir das Kopieren eigentlich gleich ganz sparen...
Option Explicit

Private Sub CommandButton1_Click()
 Call prcSuch
End Sub

Private Sub prcSuch()
Const SOURCE_NAME As String = "Test.xlsx"
Dim objRange As Range
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim strFirstAddress As String, strName As String
Dim lngIndex As Long
With Application
   .ScreenUpdating = False
    On Error Resume Next
    strName = Workbooks(SOURCE_NAME).Name
    If Err Then
      On Error GoTo 0
      With ThisWorkbook
          Workbooks.Open .Path & "\" & SOURCE_NAME
          .Activate
      End With
    Else: On Error GoTo 0
    End If
    Set wksSource = Workbooks(SOURCE_NAME).Worksheets("Tabelle1") 'Quelldatei 
    Set wksTarget = ThisWorkbook.Worksheets("Tabelle1") 'Zieldatei 
    With wksTarget
        .Cells(2, .UsedRange.Columns(1).Column).Resize(.UsedRange.Rows.Count - 1, _
          .UsedRange.Columns.Count - 1).ClearContents
    End With
    With wksSource.Cells(2, 1).Resize(4999, 1)
        Set objRange = .Find(What:=wksTarget.Cells(1, 2), LookIn:=xlValues, LookAt:=xlWhole)
        If Not objRange Is Nothing Then
            strFirstAddress = objRange.Address
            Do
               lngIndex = lngIndex + 1
                 wksTarget.Cells(7 + lngIndex, 2).Resize(1, 10).Value = _
                    wksSource.Cells(objRange.Row, 3).Resize(1, 10).Value
               Set objRange = .FindNext(After:=objRange)
            Loop While Not objRange Is Nothing And objRange.Address <> strFirstAddress
        End If
    End With
    .ScreenUpdating = True
End With
Set objRange = Nothing
Set wksSource = Nothing
Set wksTarget = Nothing
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit
Anzeige

Forumthreads zu verwandten Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige