Thema Datum  Von Nutzer Rating
Antwort
Rot Nur jede 2. Zeile UND Teilen von Strings
 22.11.2006 15:27:47 Marie K.
NotSolved
23.11.2006 11:34:24 Rasta
NotSolved
23.11.2006 13:38:25 Marie K.
NotSolved
23.11.2006 15:51:32 Marie K.
NotSolved
27.11.2006 08:45:40 Marie K.
NotSolved
23.11.2006 16:35:26 Marie K.
NotSolved
23.11.2006 21:27:21 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Marie K.		 Datum:
22.11.2006 15:27:47		 Views:
2248		 Rating:
     
Antwort:
  Ja
Thema:
Nur jede 2. Zeile UND Teilen von Strings
Hallo liebe Leute!

ich schon wieder ^^

Es hat zwar theoretisch immernoch was mit meinem SAP-Problem zu tun, aber nichts mehr mit SAP ^^

Ich hab bis hier hin alles soweit fertig - jetzt will ich nur noch die aus einer SAP-Tabelle ausgelesenen Daten in Excel strukturiert wiedergeben.
Ich bin schon soweit, dass ich was ausgeben kann, allerdings sieht das ein wenig.....naja, sagen wir chaotisch aus ^^

hier mal ein Codefetzen:

---------------------------------------------------------------------------

Entry = objTable.RowCount

If oParam4 <> "0" Then
MsgBox ("Ein Fehler ist aufgetreten. Der Returncode muss NULL sein (RC = " & oParam4 & "). Bitte überprüfen Sie Ihre Eingabe!")
Else
Dim i
For i = 1 To Entry Step 2
Cont = objTable.Cell(i, 1)
' PROBLEEEEEEM
If Entry "0" Then
Sheets(2).Range("B7:B25") = Cont
ElseIf Entry "10" Then
Sheets(3).Range("B7:B45") = Cont
ElseIf Entry "20" Then
Sheets(4).Range("B7:B65") = Cont
'PROBLEM-ENDE
End If
Next i
If Entry "0" Then
Sheets(2).Range("D1") = oParam5
Sheets(2).Range("D2") = oParam7
Sheets(2).Range("J2") = oParam1
Sheets(2).Range("F27") = oParam6
MsgBox ("Die Daten wurden in ""Etikett A5"" eingetragen")
ElseIf Entry "10" Then
Sheets(3).Range("D1") = oParam5
Sheets(3).Range("D2") = oParam7
Sheets(3).Range("J2") = oParam1
Sheets(3).Range("F47") = oParam6
MsgBox ("Die Daten wurden in ""Etikett A4 Variante A - 20"" eingetragen")
ElseIf Entry "20" Then
Sheets(4).Range("D1") = oParam5
Sheets(4).Range("D2") = oParam7
Sheets(4).Range("K2") = oParam1
Sheets(4).Range("F67") = oParam6
MsgBox ("Die Daten wurden in ""Etikett A4 Variante B - 30"" eingetragen")
Else
MsgBox ("Fehler! Entweder sind 0 oder mehr als 30 Einträge vorhanden. Es wurden keine Daten eingetragen.")
End If
End If

---------------------------------------------------------------------------

Problem Nummero 1:
(gekennzeichnet im Source durch den Kommentar "PROBLEM")
Ich will, dass die Daten, die ich ausgebe, nur in jeder zweiten Zeile erscheinen - und dass in jeder Zeile natürlich ein anderer Eintrag erscheint - so wie ichs jetzt da stehen hab wird nämlich jede Zeile in der angegebenen Range ausgefüllt und es steht in jeder das gleiche.....

Problem Nummero 2:
Das zweite Problem ist, die Daten kommen aus SAP nicht sehr strukturiert rüber - heißt: ich lese eine SAP-Tabelle aus - diese hat mehrere Zeilen für die Einträge, aber keine Spalten, obwohl dies nötig wäre - nun muss ich sehen, wie ich diese ausgegebene Zeichenkette in 4 Einzelstrings unterteilt kriege.
Das ganze sieht etwa so aus:

EAN13 - ganz viele Leerzeichen - Packungsbezeichnung - ganz viele Leerzeichen - Anzahl - ein Leerzeichen - Bezeichnung


Also:
Frage 1: Wie klappt das mit dem zweizeilig und den richtigen Einträgen?
Frage 2: Wie kann ich das gescheit splitten?

Vielleicht hab ich ja mit den falschen Stichworten gesucht, aber irgendwie hab ich zu den Themen nichts hilfreiches gefunden -.-
Kennt sich jemand damit aus? Dann HIIIIIIIIIIIER!!!! :-)

LG
Marie

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Nur jede 2. Zeile UND Teilen von Strings
 22.11.2006 15:27:47 Marie K.
NotSolved
23.11.2006 11:34:24 Rasta
NotSolved
23.11.2006 13:38:25 Marie K.
NotSolved
23.11.2006 15:51:32 Marie K.
NotSolved
27.11.2006 08:45:40 Marie K.
NotSolved
23.11.2006 16:35:26 Marie K.
NotSolved
23.11.2006 21:27:21 Rasta
NotSolved