Bewegen der gesamte Inhalt der Zelle abhängig, ob es enthält einen speziellen Charakter-Excel 2007

Möchte ich ein makro erstellen in Excel 2007 zu Spalte Suche Eine für einen Doppelpunkt (:) und wenn gefunden, bewegen Sie den gesamten Wert der Zelle in der gleichen Zeile, Spalte B. Damit es meine Daten sieht wie folgt aus:

Column A     Column B
1:256   
13.049 
1:200    
1:100   
1:200   
1:512   
> 1:512 
13.909
1:100   
1:512   
1:512   
16.610

Und zu schauen, wie in diesem Beitrag ausgeführt makro:

Column A    Column B
            1:256   
13.049 
            1:200     
            1:100   
            1:200      
            1:512   
            > 1:512 
13.909
            1:100   
            1:512        
            1:512   
16.610

Ideen jemand?

Was ist stoppen Sie von der Erstellung dieses makro? Speziell die Teil sind Sie nicht sicher?

InformationsquelleAutor user12059 | 2013-09-24

  1. 1

    Ist es immer gut zu zeigen, Ihre Arbeit hier ..

    versuchen, Ihre Arbeit zu zeigen nachfolgend, aber ich Ihnen helfen, diese Zeit

    GETESTET - Funktioniert Prima

    Sub tested()

Dim rng As Range
Dim lrow As Integer

With ActiveSheet
lrow = .Range("A" & Rows.Count).End(xlUp).Row

For Each rng In .Range("A2:A" & lrow)

If InStr(rng.Value, ":") > 0 Then

rng.Offset(0, 1).Value = rng.Value
rng.Value = ""
End If

Next rng

End With

End Sub
    Vielen Dank für den code. Ich bin neu auf excel-Codierung und wusste nicht, wo Sie zu suchen - Ausschneiden und einfügen-excel-makro - nicht zeigen mir die nachfolgende Seite. Überprüfen Sie Ihren code und Sie eine google-Suche auf ActiveSheet.Bereich I finden Sie auf der folgenden Webseite: support.microsoft.com/kb/291308/en-us, die hat mir geholfen zu verstehen, den code und gab mir einige zusätzliche Hinweise für die Zukunft Programmieren.
    Gerne helfen 🙂 Nie aufgeben .

    InformationsquelleAutor Sathish K

Schreibe einen Kommentar