VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: KNAd	Datum: 22.06.2017 14:50:01	Views: 924	Rating:	Antwort:
Thema: BDB
Sub Ersetzenanderex() Dim Bereich As Object, Wertebereich As Object, Wertebereich2 As Object Dim Zelle As Range Dim Zelle2 As Range Dim Zelle3 As Range Set Bereich = ActiveSheet.Range("B8:V8") For Each Zelle In Bereich Zelle.Value = Replace(Zelle.Value, " ", "_") Zelle.Value = Replace(Zelle.Value, "-", "_") Next Zelle Set Wertebereich2 = ActiveSheet.Range("C8:V9") For Each Zelle2 In Wertebereich2 Zelle3.Value = Wertebereich2.Cells(8, 3).Value & "_in_" & Wertebereich2.Cells(9, 3).Value Range("C33:V33").Value = Zelle3 Next Set Wertebereich = ActiveSheet.Range("C10:V29") For Each Zelle In Wertebereich If Zelle.Value = "" Then Zelle.Value = 0 End If Next Zelle 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