Hallo Excel-Pro´s,
ich habe folgendes Problem:
ich habe ein Excelblatt in dem stehen in Spalte B bestimmte Aussagen und in Spalte A manchmal der Buchstabe X , Das geht alles Ab Zeile 5 los.
Beispiel:
A B
6 x Aussage 1
7 Aussage 2
8 x Aussage 3
9 .....
Jetzt möchte ich alle Aussagen in Spalte B in ein anderes Arbeitsballt ab Zelle B63 untereinander kopieren, jedoch nur die Aussagen, die auch ein x in Spalte a haben.
Problem: Es kann sein, dass noch weitere Aussagen hinzugefügt werden in Spalte B.
Die müssten dann auch mit kopiert werden. Bei den möglichen weiteren Aussagen, würde dann der Bearbeiter immer selber ein x in Spalte A einfügen, damit das Makro es erkennen und mit herüberkopieren würde.
Um meinen Willen zu seigen, habe ich schon mal angefangen zu programmieren, merke jedoch, dass meine VBA-Skills noch ausbaufähig sind:).
Sub Ausschlüsse()
Dim Zeile As Long
Dim Zeilemax As Long
Zeilemax = Worksheets(6).UsedRange.Rows.Count
For Zeile = 6 To Zeilemax
With Range("B" & Zeile)
If Range("B").Value <> "" And Range("A").Value <> "" Then Range("B").Select
End With
Next Zeile
End Sub
Daher baue ich auf euch:)
Vielleicht kann mir jemand helfen ?
Vielen Dank im Voraus
Gruß, Sascha