VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: honolulu	Datum: 05.07.2016 13:56:17	Views: 1388	Rating:	Antwort:
Thema: Zelle einfügen nach abfrage
Hallo liebes Forum, ich würde gern eine Zelle einfügen nachdem eine Bedingung abgefragt wurde. Folgendes: In Spalte B soll die jeweilige Zelle nach "46" Abgefragt werden. Wenn das der Fall ist soll in der selben Zeile in Spalte C eine leere Zelle eingefügt werden. Wenn es nicht der Fall ist soll in der nächsten Zeile weiter abgefragt werden. Mein Code sieht bis jetzt so aus: Sub Datumkorr() Dim Zelle As Range Dim n As Single Dim i As Single n = 46 i = 2 For Each Zelle In Sheets(1).Range("b2:b35038") If Zelle.Value = n Then Sheets(1).Cells(i, 3).Insert i = i + 1 End If Next End Sub Vielen Dank schon mal im Voraus für eure Hilfe

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