Thema Datum  Von Nutzer Rating
Antwort
Rot Code Erweiterung
 14.02.2016 09:24:37 Josef
NotSolved
14.02.2016 16:09:56 Gast49347
NotSolved
14.02.2016 17:42:45 Josef
NotSolved

Ansicht des Beitrags:
Von:
Josef		 Datum:
14.02.2016 09:24:37		 Views:
1356		 Rating:
     
Antwort:
  Ja
Thema:
Code Erweiterung

Hallo

If Not agefunden Then
                      .Cells(lrow, 8) = Application.Index(Worksheets("Daten").Range("A1:J20"), WorksheetFunction.Match(vInput(i, 1), Worksheets("Daten").Range("A1:A32"), 0), WorksheetFunction.Match("PAL", Worksheets("Daten").Rows(1), 0) + 1)
                      .Cells(lrow, 10) = Application.Index(Worksheets("Daten").Range("A1:J20"), WorksheetFunction.Match(vInput(i, 1), Worksheets("Daten").Range("A1:A32"), 0), WorksheetFunction.Match("PAL", Worksheets("Daten").Rows(1), 0) + 2)
                   End If

Hier hab ich einen Code der mir Daten wie einen Sveweis ausliest und in ein neues Sheet kopiert nun sollte es aber so sein,

das wenn die obere Zeile als Ergebnis 0 hat das das Ergebnis der unteren Zeile in Spalte 11 kommt wenn das Ergebnis dagegen 1 ist dann soll das Ergebnis der unteren Zeile in die Spalte 10 sowie im CODE.

 

Vielen Dank

Josef

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 Code Erweiterung
 14.02.2016 09:24:37 Josef
NotSolved
14.02.2016 16:09:56 Gast49347
NotSolved
14.02.2016 17:42:45 Josef
NotSolved