VBA Wenn Zelle gleich "" tun "", sonst gehe zum nächsten Blatt

Möchte ich VBA-code, um dies zu tun: wenn Zelle gleich "bla bla", dann neue Spalten einfügen, sonst bewegen Sie zum nächsten Blatt. Die Sache ist die, dass wenn ich ihn ohne

wSheet

dann alles funktioniert (außer für den Gang zum nächsten Blatt). Wenn ich wSheet, code bleibt in der ersten aktiven Blatt schafft zusätzliche Spalten, die, obwohl Sie die Zelle nicht gleich 2013 06. Irgendwelche Vorschläge? Danke!

Sub Macro2()
'
' Macro2 Macro
'
dim wSheet As Worksheet

For Each wSheet In Worksheets

If wSheet.Range("R1")="2013 06" Then
'If Range("R1") = "2013 06" Then
    Columns("R:T").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("L:N").Select
    Selection.Copy
    Columns("R:R").Select
    ActiveSheet.Paste
    Selection.Replace What:="2013 04", Replacement:="2013 06", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

ElseIf wSheet.Range("R1")<>"2013 06"  Then
'ElseIf Range("R1") <> "2013 06" Then
End If

Next wSheet

End Sub
InformationsquelleAutor atomoutside | 2013-07-05
  1. 2

    Die Sie nicht wirklich brauchen, um die else nur - nichts tun, was bedeutet, lassen Sie die Schleife gehen Sie zum nächsten Blatt. Es ist auch nicht empfohlen, die Verwendung der .Select Methode, so habe ich optimiert deinen code ein wenig. Sehen, ob das funktioniert wie gedacht:

    Sub Macro2()
    Dim wSheet As Worksheet
    For Each wSheet In Worksheets
        If wSheet.Range("R1") = "2013 06" Then
            wSheet.Columns("R:T").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            wSheet.Columns("L:N").Copy
            wSheet.Paste
            wSheet.Columns("R:R").Replace What:="2013 04", Replacement:="2013 06", LookAt:=xlPart _
                , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
        End If
    Next wSheet
End Sub
    • Funktioniert wie ein Charme. Danke.
    InformationsquelleAutor
Schreibe einen Kommentar