Excel - VBA | Bereichswerte analysieren und in eine andere Spalte kopieren

Question

Ich habe eine Menge Probleme damit.

Was ich versuche zu tun ist im Grunde erhalten Excel zum Analysieren einer Bereich Zelle Inhalt und wenn der Inhalt nicht gleich "OWNED", kopieren Sie es in eine andere Spalte. Ich habe eigentlich keine Ahnung, was zu tun ist, habe mit verschiedenen Makros experimentiert, die ich im Internet gefunden habe, aber keiner von ihnen scheint sich auf das anzuwenden, was ich brauche, und mir fehlt das Wissen, um das zu schaffen, also würde ich mich freuen, wenn mir jemand zur Hand gehen würde oder hat mir zumindest in die richtige Richtung gezeigt.

Also im Grunde Ich versuche, von diesem

diesen

zu bekommen und wie man sehen kann, würde ich das Programm braucht, um nicht mit leeren Zellen verschonen in der ersten Spalte.

Ich bin sehr dankbar, dass jemand, der mir eine Hand auf diese verleihen kann, es ist schon macht mich verrückt nach Wochen:/

Vielen Dank im Voraus.

EDIT: Code hinzugefügt

Sub Update() 

Dim wb As Workbook 
Dim ws As Worksheet 

Set wb = ActiveWorkbook 
Set ws = wb.Sheets("Hoja1") 

Dim UninstalledColumn As String 
Dim UninstalledRow As Integer 

UninstalledColumn = "A" 
UninstalledRow = 3 

Dim UninstalledCell As Range 
Set UninstalledCell = UninstalledColumn & Str(UninstalledRow) 

Dim WorkstationList As Range 
Set WorkstationList = Range("C3:C12") 



End Sub 

Answer 1

Versuchen Sie, diese

Sub Update() 

Dim wb As Workbook 
Dim ws As Worksheet 

Set wb = ActiveWorkbook 
Set ws = wb.Sheets("Hoja1") 

Dim UninstalledColumn As String 
Dim UninstalledRow As Integer 

UninstalledColumn = "A" 
UninstalledRow = 3 

'this is how you would assign a range, but you don't need that. 
' Dim UninstalledCell As Range 
' Set UninstalledCell = ws.Range(UninstalledColumn & UninstalledRow) 

Dim WorkstationList As Range 
Set WorkstationList = ws.Range("C3:C12") 

For Each cel In WorkstationList 
    If cel.Value <> "owned" Then 
     ws.Cells(UninstalledRow, UninstalledColumn) = cel.Value 
     UninstalledRow = UninstalledRow + 1 
    End If 
Next cel 
End Sub