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:
617		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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:
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
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