Thema Datum  Von Nutzer Rating
Antwort
18.09.2013 12:01:17 Gastnutzer
NotSolved
Blau Wenn dann SChleife zum Daten suchen und kopieren
 18.09.2013 15:32:44 Gast30067
NotSolved
19.09.2013 00:10:07 Gast75648
NotSolved

Ansicht des Beitrags:
Von:
Gast30067		 Datum:
18.09.2013 15:32:44		 Views:
1023		 Rating:
     
Antwort:
  Ja
Thema:
Wenn dann SChleife zum Daten suchen und kopieren

Angenommen dies ist Deine Tabelle mit Daten:

Wert_A1 Wert_B1 Wert_C1
Wert_A2 Wert_B2 Wert_C2
Wert_A3 Wert_B3 Wert_C3
Wert_A4 Wert_B4 Wert_C4
Wert_A5 Wert_B5 Wert_C5 
Option Explicit

Sub Beispiel()
  
  Dim rngSucheIn As Excel.Range
  Dim rngErgA As Excel.Range
  Dim rngErgC As Excel.Range
  
  'Spalte in der wir suchen
  Set rngSucheIn = ThisWorkbook.Worksheets("Tabelle1").Columns("A")
  'suchen...
  Set rngErgA = rngSucheIn.Find("Wert_A3", LookIn:=xlValues, LookAt:=xlWhole)
  'hat die Suche etwas ergeben?
  If Not rngErgA Is Nothing Then
    
    Set rngErgC = rngErgA.Offset(ColumnOffset:=2)
    'ODER auch so:
    'Set rngErgC = rngErgA.Worksheet.Cells(rngErgA.Row, "C")
    
    Call MsgBox("Treffer in Zeile: " & rngErgA.Row & vbNewLine & _
                "Wert Spalte A: " & rngErgA.Text & vbNewLine & _
                "Wert Spalte C: " & rngErgC.Text, _
                vbInformation)
  Else
    Call MsgBox("Kein Treffer.", vbInformation)
  End If
  
End Sub

Der Quellcode sucht in diesem Beispiel in Spalte A nach dem Ausdruck Wert_A3. Dieser wird in Zeile 3 gefunden. Den Wert aus Spalte C zu erhalten ist dann ein Klacks (es gibt hierfür mehr als nur die zwei gezeigten Wege das zu erreichen).

Das ist das Grundkonzept Daten zu suchen und damit etwas anzufangen.

 

VG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.09.2013 12:01:17 Gastnutzer
NotSolved
Blau Wenn dann SChleife zum Daten suchen und kopieren
 18.09.2013 15:32:44 Gast30067
NotSolved
19.09.2013 00:10:07 Gast75648
NotSolved