Habe versucht einem Makro Variablen hinzuzufügen..
31.05.2015 17:20:37
Jenny
... und jetzt funktioniert es nicht mehr. Könnt ihr mir bitte helfen?
Hallo erstmal,
Die 4 Fett und kursiv geschrieben Teile habe ich zu einem ohne diese Teile funktionierenden Makro hinzugefügt. Jetzt wird allerdings das was in den Variablen nix4 - nix7 steht mitkopiert, obwohl das Makro eigentlich genau dazu dienen soll diese 7 Texte nicht zu kopieren.
Was habe ich falsch gemacht?
Die Texte in nix1-3 werden nach wie vor wie es sein soll, außen vorgelassen.
Danke
Jenny
Sub In_einer_Spalte_zusammenfassen()
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Käsekuchen"
Dim imdb As Worksheet, noimdb As Worksheet, alle As Worksheet
Dim z_imdb As Double, z_noimdb As Double
Dim rng1 As Range, rng2 As Range
Dim nix1 As String, nix2 As String, nix3 As String, nix4 As String, nix5 As String, _
nix6 As String, nix7 As String
Dim i As Double, ziel As Range
Set imdb = Worksheets("imdb")
Set noimdb = Worksheets("no imdb")
Set alle = Worksheets("Käsekuchen")
z_imdb = imdb.UsedRange.Rows.Count
z_noimdb = noimdb.UsedRange.Rows.Count
Set rng1 = imdb.Range(imdb.Cells(1, 3), imdb.Cells(z_imdb, 10))
Set rng2 = noimdb.Range(noimdb.Cells(1, 2), noimdb.Cells(z_noimdb, 17))
nix1 = "unknown"
nix2 = "unknowns"
nix3 = "na"
nix4 = "+ more"
nix5 = "None"
nix6 = "Uniknowns"
nix7 = "others"
i = 1
Set ziel = alle.Cells(i, 1)
For Each Cell In rng1
If Trim(Cell.Value) <> "" Then
If Cell.Font.Color = RGB(255, 0, 0) Then
If LCase(Trim(Cell.Value)) <> nix1 And LCase(Trim(Cell.Value)) <> nix2 And _
LCase(Trim(Cell.Value)) <> nix3 And LCase(Trim(Cell.Value)) <> nix4 <> nix5 <> nix6 <> _
nix7 Then
ziel = Cell.Value
i = i + 1
Set ziel = alle.Cells(i, 1)
ziel.Select
Else
End If
Else
End If
Else
End If
Next
For Each Cell In rng2
If Trim(Cell.Value) <> "" Then
If LCase(Trim(Cell.Value)) <> nix1 And LCase(Trim(Cell.Value)) <> nix2 And _
LCase(Trim(Cell.Value)) <> nix3 And LCase(Trim(Cell.Value)) <> nix4 <> nix5 <> nix6 <> _
nix7 Then
ziel = Cell.Value
i = i + 1
Set ziel = alle.Cells(i, 1)
ziel.Select
Else
End If
Else
End If
Next
End Sub