Thema Datum  Von Nutzer Rating
Antwort
05.08.2019 10:30:29 Albert
NotSolved
Blau Excel VBA - Werte werden Nicht in Zellen übernommen
 05.08.2019 10:43:49 Werner
NotSolved
05.08.2019 14:25:51 Gast23188
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
05.08.2019 10:43:49		 Views:
433		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA - Werte werden Nicht in Zellen übernommen

Hallo Albert,

hier brauchst du nicht von hinten nach vorne zu laufen.

Benutze hier ein If - ElseIf - End If, dann kannst du mit Like und Joker arbeiten.

Zudem solltest du dir von Anfang an angewöhnen, deine Variablen auch alle zu deklarieren.

Public Sub CDDVDinArtSpalteeinsetzen()
Dim lz As Long, t As Long

'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Row
  
'** Durchlauf aller Zeilen
For t = 2 To lz
'Abfragen, ob in der ersten Spalte die Buchstaben "CD" oder "DVD" enthalten sind
    If Cells(t, 1) Like "CD*" Then
        Cells(t, 4) = "CD"
    ElseIf Cells(t, 1) Like "DVD*" Then
        Cells(t, 4) = "DVD"
    Else
    End If
Next t
End Sub

 

Gruß Werner

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
05.08.2019 10:30:29 Albert
NotSolved
Blau Excel VBA - Werte werden Nicht in Zellen übernommen
 05.08.2019 10:43:49 Werner
NotSolved
05.08.2019 14:25:51 Gast23188
NotSolved