Thema Datum  Von Nutzer Rating
Antwort
29.04.2011 11:13:01 Baira
NotSolved
29.04.2011 11:29:58 Severus
NotSolved
29.04.2011 12:45:35 Baira
NotSolved
29.04.2011 13:32:01 Severus
NotSolved
29.04.2011 13:39:13 Gast21999
NotSolved
Blau Sheet durchsuchen und Wert eintragen OHNE SVerweis
 29.04.2011 14:25:35 Severus
Solved
02.05.2011 08:01:02 Baira
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
29.04.2011 14:25:35		 Views:
1185		 Rating:
     
Antwort:
 Nein
Thema:
Sheet durchsuchen und Wert eintragen OHNE SVerweis

Versuch mal:

Option Explicit

Sub tiere()
Dim strTier As String
Dim lngLetzteQuellZeile As Long
Dim lngQuellLaufZahl As Long
Dim lngLetzteSuchZeile As Long
Dim lngSuchLaufZahl As Long
  
With ThisWorkbook
    With .Sheets("Deklaration")
        lngLetzteSuchZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    End With
    With .Sheets("Tiere")
    lngLetzteQuellZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
        For lngQuellLaufZahl = 1 To lngLetzteQuellZeile
            strTier = .Cells(lngQuellLaufZahl, 1)
            If strTier <> "" Then
                With ThisWorkbook.Sheets("Deklaration")
                    For lngSuchLaufZahl = 1 To lngLetzteSuchZeile
                        If .Cells(lngSuchLaufZahl, 1) = strTier Then
                            ThisWorkbook.Sheets("Tiere").Cells(lngQuellLaufZahl, 2) = .Cells(lngSuchLaufZahl, 2)
                        ElseIf .Cells(lngSuchLaufZahl, 3) = strTier Then
                            ThisWorkbook.Sheets("Tiere").Cells(lngQuellLaufZahl, 2) = .Cells(lngSuchLaufZahl, 4)
                        End If
                    Next lngSuchLaufZahl
                End With
            End If
        Next
    End With
End With
End Sub

 

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
29.04.2011 11:13:01 Baira
NotSolved
29.04.2011 11:29:58 Severus
NotSolved
29.04.2011 12:45:35 Baira
NotSolved
29.04.2011 13:32:01 Severus
NotSolved
29.04.2011 13:39:13 Gast21999
NotSolved
Blau Sheet durchsuchen und Wert eintragen OHNE SVerweis
 29.04.2011 14:25:35 Severus
Solved
02.05.2011 08:01:02 Baira
NotSolved