Excel-Spalte mit VBA lesen, Abfragen tätigen und Werte in andere Spalte schreiben

  • Excel

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    1. Bitte Deinen Post nachbearbeiten und Vollzitat entfernen, sonst kommt ein Moderator, macht das für Dich uns es gibt n Rüffel, da Widerspruch zu den Forenregeln (§4, 3.f).
    2. Bitte noch angeben: Eingabe + gewünschte Ausgabe
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Nun, Dein Beispiel aus Post#20 0,1,2,3,3,3 wird bereits mithilfe des Codes aus Post#17 in 0,1,1,2,2,3 ungewandelt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Guten Morgen VaporiZed,

    stimmt, das ist mir gar nicht aufgefallen. Ich muss dich noch ein einziges Mal um Rat bitten.
    Ich möchte auch beispielsweise folgendes berücksichtigen.

    - Wenn nach der Neutralstellung (0) der Gang 2 folgt, soll zuvor der Gang 1 zuerst für zwei Sekunden benutzt warden, danach Gang 2 für zwei Sekunden usw.
    Bsp.: 0,2,3,3,3,3 --> 0,1,1,2,2,3

    - Momentan passiert bei nachfolgendem Bsp. noch folgendes:
    Bsp.: 0,1,1,2,3,3 --> 0,1,2,2,3,3
    Es sollte aber auch hier heißen: 0,1,1,2,3,3 --> 0,1,1,2,2,3

    Hier nach lasse ich dich in Frieden und widme mich wieder anderen Dingen.

    Danke!

    Bassi90

    Sooo ... lange hat's gedauert. Habe den gesamten Projektcode mal umgebaut und so hergerichtet, dass er besser erweiterbar ist. Der Schlüssel dazu war ein String, der erstmal die Eingangswerte der Gänge aufnimmt, diese manipuliert und ggf. erweitert. Es sind alle genannten Fälle eingebaut. Ich hoffe, dass sie Deinen Vorstellungen entsprechen. Die Excel-Datei im Anhang enthält eine Folge, die alle Fälle abdeckt. Einfach auf den Button klicken und Auswahlt treffen ...
    Oder auch nicht, da Excel-Makrodateien verboten sind. Und jene in ne Zip-Datei zu packen, macht es auch nicht legaler. Naja, dann bleibt der Code wohl mein Geheimnis.
    der Excelgesamtcode

    :P

    Visual Basic-Quellcode

    1. Option Explicit
    2. Sub Ganganalyse()
    4. Columns("B:C").Select
    5. Selection.ClearContents
    6. Cells(1, 2).Value = "Zielwerte"
    7. Cells(1, 1).Select
    9. Dim Ganganalysewunsch As Integer
    10. Ganganalysewunsch = InputBox("Bitte Ganganalyseart auswählen." & vbCrLf & _
    11. "1 = ein Gang, der nur 1 Sekunde benutzt wird, soll neutral werden" & vbCrLf & _
    12. "2 = ein Gang, der 2 nur Sekunden benutzt wird, soll 1x neutral und 1x zum Folgegang werden" & vbCrLf & _
    13. "3 = Gänge, die nur 1 Sekunde benutzt werden, sollen gedoppelt werden (ohne Gangüberspringen)" & vbCrLf & _
    14. "4 = Schalte nach Neutral einzeln für 2 Sekunden die Gänge hoch", _
    15. "Ganganalysewahl")
    17. Dim i As Integer, Startzeile As Integer, Gangfolge As String
    18. Gangfolge = Space(255)
    19. Startzeile = 2
    21. For i = Startzeile To Cells(Rows.Count, 1).End(xlUp).Row
    22. Mid(Gangfolge, i - Startzeile + 1, 1) = Cells(i, 1).Value
    23. Next
    25. For i = 1 To Len(Gangfolge)
    26. If Mid(Gangfolge, i, 1) = " " Then Exit For
    27. Select Case Ganganalysewunsch
    28. Case 1: Call Mache1SekundengängeNeutral(i, Gangfolge)
    29. Case 2: Call Mache2SekundengängeEinmalNeutralUndEinmalZumFolgegang(i, Gangfolge)
    30. Case 3: Call Mache1SekundengängeZu2SekundengängeOhneGängeZuÜberspringen(i, Gangfolge)
    31. Case 4: Call MacheNachNeutral2SekundenGangeinzelsprünge(i, Gangfolge)
    32. End Select
    33. Next
    35. For i = 1 To Len(Gangfolge)
    36. If Mid(Gangfolge, i, 1) = " " Then Exit For
    37. Cells(i + 1, 2).Value = Mid(Gangfolge, i, 1)
    38. Next
    40. End Sub
    44. Private Sub Insert(ByRef Originalstring As String, Position As Integer, Insertstring As String)
    46. If Position = Len(Originalstring) + 1 Then
    47. Originalstring = Originalstring & Insertstring
    48. Exit Sub
    49. End If
    51. If Position > Len(Originalstring) + 1 Then
    52. Originalstring = Originalstring & Space(Position - Len(Originalstring) - 1) & Insertstring
    53. Exit Sub
    54. End If
    56. Originalstring = Mid(Originalstring, 1, Position - 1) & Insertstring & Mid(Originalstring, Position, Len(Originalstring) - Position + 1)
    58. End Sub
    62. Private Sub Mache1SekundengängeNeutral(ByRef i As Integer, ByRef Gangfolge As String)
    64. If i = 1 Then
    65. If Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i + 1, 1) Then Mid(Gangfolge, i, 1) = 0
    66. ElseIf Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i - 1, 1) And Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i + 1, 1) Then Mid(Gangfolge, i, 1) = 0
    67. End If
    69. End Sub
    73. Private Sub Mache2SekundengängeEinmalNeutralUndEinmalZumFolgegang(ByRef i As Integer, ByRef Gangfolge As String)
    75. If i = 1 Then
    76. If Mid(Gangfolge, i, 1) = Mid(Gangfolge, i + 1, 1) And _
    77. Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i + 2, 1) Then
    78. Mid(Gangfolge, i, 1) = 0
    79. Mid(Gangfolge, i + 1, 1) = Mid(Gangfolge, i + 2, 1)
    80. i = i + 1
    81. End If
    82. Exit Sub
    83. End If
    85. If Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i - 1, 1) And _
    86. Mid(Gangfolge, i, 1) = Mid(Gangfolge, i + 1, 1) And _
    87. Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i + 2, 1) Then
    88. Mid(Gangfolge, i, 1) = 0
    89. If Mid(Gangfolge, i + 2, 1) <> " " Then Mid(Gangfolge, i + 1, 1) = Mid(Gangfolge, i + 2, 1)
    90. i = i + 1
    91. End If
    93. End Sub
    97. Private Sub Mache1SekundengängeZu2SekundengängeOhneGängeZuÜberspringen(ByRef i As Integer, ByRef Gangfolge As String)
    99. If Mid(Gangfolge, i + 1, 1) = " " Then Exit Sub
    100. If Mid(Gangfolge, i, 1) > 0 And Abs(CInt(Mid(Gangfolge, i, 1)) - CInt(Mid(Gangfolge, i + 1, 1))) = 1 Then
    101. If i = 1 Then
    102. Call Insert(Gangfolge, i, Mid(Gangfolge, i, 1))
    103. i = i + 1
    104. ElseIf Mid(Gangfolge, i, 1) <> Mid(Gangfolge, i - 1, 1) Then
    105. Call Insert(Gangfolge, i, Mid(Gangfolge, i, 1))
    106. i = i + 1
    107. End If
    108. End If
    110. End Sub
    114. Private Sub MacheNachNeutral2SekundenGangeinzelsprünge(ByRef i As Integer, ByRef Gangfolge As String)
    116. If Mid(Gangfolge, i, 1) <> 0 Or Mid(Gangfolge, i + 1, 1) = "0" Then Exit Sub
    118. Dim Zielgang As Integer, j As Integer
    119. Zielgang = CInt(Mid(Gangfolge, i + 1, 1))
    121. For j = 1 To Zielgang - 1
    122. Call Insert(Gangfolge, i + 1, CStr(j) & CStr(j))
    123. i = i + 2
    124. Next
    126. End Sub

    Der Button ist an die Prozedur Gangwahl gekoppelt.
    Da VBA keine String.Insert-Methode kennt, hab ich schnell mal selber eine dazugeschustert.

    Bilder

    • Screenshot Analyseprogramm.png

      11,13 kB, 652×275, 80 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende