Thema Datum  Von Nutzer Rating
Antwort
Rot Wie muss der Code geändert werden, damit in CaseSelect Stringvariable ausgegeben werdenn
 19.09.2014 18:34:02 Gast
NotSolved

Ansicht des Beitrags:
Von:
Gast		 Datum:
19.09.2014 18:34:02		 Views:
2723		 Rating:
     
Antwort:
  Ja
Thema:
Wie muss der Code geändert werden, damit in CaseSelect Stringvariable ausgegeben werdenn
Hallo Forum, ih bin ein in VBA noch niht besonders fit, sodass ich bisher den Fehler in meiner folgenden Prozedur nicht finden konnte. Ich mache eine SelectCase Auswertung von Zahlen zwischen 1 und Hundert, die ich in Gruppierungen einteilen möchte. Diese Gruppierungen möchte ich aber nicht 1 bis 7 benennen sondern a bis g. Option Explicit Sub Auswertung_Zbereiche() Dim a, b, c, d, e, f, g As String Dim ObjCells As Object Dim i As Integer Dim i2 As Integer Dim k As Integer 'i2 = ActiveSheet.UsedRange.Rows.Count i2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Maximum Zeile ermitteln k = Cells(6, Columns.Count).End(xlToLeft).Column + 1 'nächste freie Spalte in Zeile 6 MsgBox "Erste freie Zelle in Zeile 6 ist in Spalte: " & k For i = 1 To i2 Set ObjCells = Cells(i, 4) Select Case ObjCells.Value Case 1 To 5 Cells(i, k) = 1 'a würde nicht ausgeführt werden Case 6 To 9 Cells(i, k) = 2 'b würde nicht ausgeführt werden Case 10 To 13 Cells(i, k) = 3 Case 14 To 16 Cells(i, k) = 4 Case 17 To 18 Cells(i, k) = 5 Case 19 To 20 Cells(i, k) = 6 Case 21 To 100 Cells(i, k) = 7 End Select 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
Rot Wie muss der Code geändert werden, damit in CaseSelect Stringvariable ausgegeben werdenn
 19.09.2014 18:34:02 Gast
NotSolved