Thema Datum  Von Nutzer Rating
Antwort
28.02.2008 16:18:46 Ergy
NotSolved
Blau Aw:Excelbefehl rechts für strings auch in vba?
 28.02.2008 16:44:35 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
28.02.2008 16:44:35		 Views:
875		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Excelbefehl rechts für strings auch in vba?
Hallo Ergy,
in deinem Beispiel sind 2 Kommata. Was muss in eine neue Zeile kopiert werden? Wie soll das Ergebnis für dein Beispiel aussehen? Wo soll die neue Zeile sein? Stehen die Ausgangswerte alle in Spalte A des Tabellenblattes "devs"?
Das Komma im String kannst du z.B. auch mit InStr oder RevInStr suchen. Das Manipulieren von Strings geht z.B. mit Left(), Right(), Mid(). Du kannst den String mit Split() aber auch an den Kommata teilen und die Teilstrings in ein Array schreiben. Sieh die einzelnen Funktionen in der VBA-Hilfe nach.
Wenn du die Teilstrings hast, kannst du sie z.B. mit Cells(Zeile, Spalte)=Teilstring in eine Zelle schreiben. Zeile und Spalte zählen ab 1. Wahrscheinlich eignet sich eine For-Next-Schleife, um alle Zellen zu durchlaufen.
Vielleicht hilft dir das ja schon weiter. Sonst melde dich mit einer genaueren Spezifikation.
Gruß
Holger

Ergy schrieb am 28.02.2008 16:18:46:

Hallo,

also ich hänge an einem Problem. Ich habe zum Beispiel folgenden Zelleninhalt "1/1/39, 0/1/6, 1/1/3" und muss alle Zeichen nach dem Komma in eine neue Zeile kopieren und in der alten Zelle alles inklusive Komma löschen.

Leider habe ich gar keine Ahnung, wie ich das bewerkstelligen kann in VBA. In Excel hatte ich es bereits mit dem rechts()-Befehl.

Mein Skript sieht momentan so aus (ich dachte, ich kann es vielleicht mit case machen):

With Worksheets("devs").Columns("A:A").Select
Dim b As String
Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Dim Cell_Name As String
Cell_Name = ActiveCell.Name.Name
select case
case "," to ",".copy

' b.Copy
' Selection.EntireRow.Insert
' ActiveSheet.Paste
' Set a = .FindNext(a)
' Loop While Not a Is Nothing
' End If
End With
End Sub


Danke, Ergy

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
28.02.2008 16:18:46 Ergy
NotSolved
Blau Aw:Excelbefehl rechts für strings auch in vba?
 28.02.2008 16:44:35 Holger
NotSolved