Thema Datum  Von Nutzer Rating
Antwort
Rot For To Schleife Verständnisfrage
 08.12.2017 10:59:40 Mark
NotSolved
08.12.2017 16:21:25 Storax
NotSolved

Ansicht des Beitrags:
Von:
Mark		 Datum:
08.12.2017 10:59:40		 Views:
1580		 Rating:
     
Antwort:
  Ja
Thema:
For To Schleife Verständnisfrage
Hallo zusammen :) Ich habe ein kleines Problem beim Nachvollziehen meines Makros. Ich muss dazu sagen, dass ich mit VBA erst seit kurzer Zeit arbeite und bisher nur ein Fachbuch dazu gelesen habe. Dies ist der Code(leider weiß ich nicht, wie der Text-Editor genutzt werden kann. Hoffe es ist trotzdem lesbar :/) Sub ErlöseSuchen() Dim Zeile As Long Dim ZeileMax As Long Dim ZeileFrei As Long Dim Treffer As Range Workbooks.Open (Quelle) With Worksheets("5 G+V") ZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row For Zeile = 2 To ZeileMax Set Treffer = tbl_Schluesselung.Range("A:A").Find(what:=.Cells(Zeile, "A").Value,lookAt:=xlWhole) If Treffer Is Nothing Then ZeileFrei = _ tbl_Schluesselung.Range("A" & tbl_Schluesselung.Rows.Count).End(xlUp).Row tbl_Schluesselung.Cells(ZeileFrei, "A").Value = .Cells(Zeile, "A").Value tbl_Schluesselung.Cells(ZeileFrei, "B").Value = .Cells(Zeile, "B").Value Else Treffer.Offset(0, 1).Value = .Cells(Zeile, "B").Value End If Next Zeile End With End Sub Kurze Hintergrunderklärung: Dieses Makro soll in meiner zuvor definierten Quelle das Arbeitsblatt "5 G+V" durchsuchen und schauen ob es in Zeile A dieses Blatts eine Übereinstimmung des Inhalts mit dem Inhalt aus Zeile A in meinem Arbeitsblatt "tbl_Schluesselung" findet. Falls dies der Fall ist, soll er den Wert aus Zeile B übernehmen. Grundsätzlich funktioniert das super, solang der gesuchte Wert in der letzten Zeile im Arbeitsblatt "5 G+V" steht. Steht der gesuchte Wert allerdings in der vorletzten Zeile, wird trotzdem der letzte Wert ausgespuckt. Beispiel: 2015 2016 2015 ist gesucht, der Wert für 2016 wird aber zurückgegeben. Ich hoffe ich konnte mein Verständnisproblem verständlich darstellen. Hat jemand eine Idee warum dem so ist? Gruß Mark

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
Rot For To Schleife Verständnisfrage
 08.12.2017 10:59:40 Mark
NotSolved
08.12.2017 16:21:25 Storax
NotSolved