Thema Datum  Von Nutzer Rating
Antwort
19.12.2008 11:43:03 Katrin
NotSolved
Blau Aw:wenn in spalte was bestimmte steht überspringen
 22.12.2008 13:49:53 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
22.12.2008 13:49:53		 Views:
710		 Rating:
     
Antwort:
  Ja
Thema:
Aw:wenn in spalte was bestimmte steht überspringen
Hallo Katrin,
ich weiß nicht, ob ich dein Anliegen richtig verstanden habe. Du überträgst, falls in der ersten Spalte nicht "Späh Karl" steht, den berechneten Pfad in Spalte C. Sonst wird kein Pfad eingetragen und die Zelle bleibt leer.

Sub Werte_einlesen()

Dim Pfad As String
Dim IniName As String

For I = 6 To ActiveSheet.Range("Legende").End(xlUp).Row 'Zeilen zählen 6 bis letzte
If ActiveSheet.Cells(I, 1) = "Späh Karl" Then
else

Lieferant = ActiveSheet.Cells(I, 1) 'Liest Lieferantennamen aus Spalte A
EKG = ActiveSheet.Cells(I, 2)
Jahr = ActiveSheet.Range("Jahr")

'Jan
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Jan"
ActiveSheet.Cells(I, 3) = Pfad

.....

'Dez
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Dez"
ActiveSheet.Cells(I, 14) = Pfad

end if
Next I
End Sub

Anstelle von
If ActiveSheet.Cells(I, 1) = "Späh Karl" Then
else
solltest du besser
If ActiveSheet.Cells(I, 1) <> "Späh Karl" Then
verwenden, aber die Größer- und Kleinerzeichen erzeugen in diesem Forum oft Probleme.
Gruß
Holger



Katrin schrieb am 19.12.2008 11:43:03:

Hallo Zusammen,

heut steh ich irgendwie auf dme Schlauch. Ich möchte Daten aus einem anderen Sheet übertragen. Steht allerdings in Zeile A z.B. "Späh Karl", dann soll in der nächsten Zeile (bei mir I) weitergemacht werden und in der Zeile mit "Späh Karl" gar nichts passieren. Dachte das geht mit next I, aber dem ist nicht so. auch I+1 oder ähnliches geht nicht. Kann mir da irgendwer ein Tipp geben?

Vielen, vielen Dank und allen schon Mal schöne Feiertage!

Katrin


Hier ist übrigens der Code:


Sub Werte_einlesen()

Dim Pfad As String
Dim IniName As String


For I = 6 To ActiveSheet.Range("Legende").End(xlUp).Row 'Zeilen zählen 6 bis letzte



Lieferant = ActiveSheet.Cells(I, 1) 'Liest Lieferantennamen aus Spalte A
EKG = ActiveSheet.Cells(I, 2)
Jahr = ActiveSheet.Range("Jahr")

'Jan
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Jan"
ActiveSheet.Cells(I, 3) = Pfad

.....

'Dez
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Dez"
ActiveSheet.Cells(I, 14) = Pfad


If ActiveSheet.Cells(I, 1) = "Späh Karl" Then



Next I
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
19.12.2008 11:43:03 Katrin
NotSolved
Blau Aw:wenn in spalte was bestimmte steht überspringen
 22.12.2008 13:49:53 Holger
NotSolved