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

Ansicht des Beitrags:
Von:
Baira		 Datum:
29.04.2011 12:45:35		 Views:
1361		 Rating:
     
Antwort:
  Ja
Thema:
Sheet durchsuchen und Wert eintragen OHNE SVerweis

Also mit dem S-Verweis hatte ich es so gemacht, aber er mochte dieses VLoolup nicht:

 

Range("B:B").Clear<BR>lRow = Cells(Rows.count, 1).End(xlUp).Row<BR>For Each rng In Range("B1:B" & lRow).Cells<BR>&nbsp;&nbsp;&nbsp; rng = WorksheetFunction.VLookup(CStr(rng.Offset(0, -1)), Worksheets("Ressourcen").Range("A:D"), 2)<BR>Next rng





Sub tiere() 
 Dim rng As Range 
Dim rng1 As Range 
Dim tier As Variant 
Dim tierArt As Variant 
Dim art As Long 
art = 1 

   For Each rng In Sheets("Tiere").UsedRange.Range("AA2") 

     tier = rng.Value 
        
            If Not IsEmpty(tier) Then 
                For Each rng1 In Sheets("Deklaration").UsedRange.Column(1)
                    If tier = rng1.Value Then 
                        tierArt = rng1.Offset(0, 1).Value 
                        Sheets("Tiere").Cells(art, 2).Value = tierArt 
                        art = art + 1                    
                    End If 
                Next rng1 
                For Each rng1 In Sheets("Deklaration").UsedRange.Column(3)
                    If tier = rng1.Value Then 
                        tierArt = rng1.Offset(0, 1).Value 
                        Sheets("Tiere").Cells(art, 2).Value = tierArt 
                        art = art + 1                    
                    End If 
                Next rng1 

            End If 
        
End Sub

Hab den Code jetzt mal so umgeschrieben wie du mir geschrieben hast. Meintest du das ganze so?

Weil es funktioniert leider immer noch nicht :(

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