|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.11.2006 15:27:47 |
Marie K. |
|
|
|
23.11.2006 11:34:24 |
Rasta |
|
|
 Aw:Aw:Nur jede 2. Zeile UND Teilen von Strings |
23.11.2006 13:38:25 |
Marie K. |
|
|
|
23.11.2006 15:51:32 |
Marie K. |
|
|
|
27.11.2006 08:45:40 |
Marie K. |
|
|
|
23.11.2006 16:35:26 |
Marie K. |
|
|
|
23.11.2006 21:27:21 |
Rasta |
|
|
Von:
Marie K. |
Datum:
23.11.2006 13:38:25 |
Views:
1339 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Nur jede 2. Zeile UND Teilen von Strings |
Moin Rasta!
DANKE DANKE DANKE DANKE DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Du hast mich damit auf die entscheidende Idee gebracht - ich habs jez nämlich mit replace, mid, left, right und ltrim hinbekommen ^^
_________________________________________
Cont = objTable.Cell(i, 1)
Cont = Replace(Cont, " EA", "")
EAN = Left(Cont, "15")
EAN = LTrim(EAN)
Num = Right(Cont, "10")
Num = LTrim(Num)
Name = Mid(Cont, "15", "50")
Name = LTrim(Name)
_________________________________________
Insgesamt siehts dann momentan so aus (Codefetzen):
_________________________________________
For i = 1 To Entry
Cont = objTable.Cell(i, 1)
Cont = Replace(Cont, " EA", "")
EAN = Left(Cont, "15")
EAN = LTrim(EAN)
Num = Right(Cont, "10")
Num = LTrim(Num)
Name = Mid(Cont, "15", "50")
Name = LTrim(Name)
If Entry "0" Then
Sheets(2).Range("B7:B25") = Num
Sheets(2).Range("D7:D25") = Name
Sheets(2).Range("H7:H25") = Num
Sheets(2).Range("J7:J25") = EAN
ElseIf Entry "10" Then
Sheets(3).Range("B7:B45") = Num
Sheets(3).Range("D7:D45") = Name
Sheets(3).Range("I7:I45") = Num
Sheets(3).Range("K7:K45") = EAN
ElseIf Entry "20" Then
Sheets(4).Range("B7:B65") = Num
Sheets(4).Range("D7:D65") = Name
Sheets(4).Range("I7:I65") = Num
Sheets(4).Range("K7:K65") = EAN
End If
Next i
_________________________________________
Das mit den Cells verstehe ich nicht ganz, sorry ich bin manchmal ein wenig sehr begriffsstutzig :-/
Was ich verstehe ist das mit der mitlaufenden Variable - ich weiß zwar dass da unbedingt ein Inkrement um 2 reinmuss, aber ich weiß nicht genau, wie ich das gescheit da reinbauen kann.....
*seufz*
So kurz vorm Ziel.... ^^
LG
Marie |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
22.11.2006 15:27:47 |
Marie K. |
|
|
|
23.11.2006 11:34:24 |
Rasta |
|
|
Aw:Aw:Nur jede 2. Zeile UND Teilen von Strings |
23.11.2006 13:38:25 |
Marie K. |
|
|
|
23.11.2006 15:51:32 |
Marie K. |
|
|
|
27.11.2006 08:45:40 |
Marie K. |
|
|
|
23.11.2006 16:35:26 |
Marie K. |
|
|
|
23.11.2006 21:27:21 |
Rasta |
|
|