VBA, Wenn dann
19.03.2020 14:00:57
Gehard
ich habe ein Problem mit einem Makro.
Mein Makro sucht in einer Tabelle die Spalteköpfe nach bestimmten Werten ab und kopiert wenn der Spaltenkopf gefunden wurde alle Werte der jeweiligen Spalte in einer vorher durch das Makro neu erstellten Datei.
Ich möchte jetzt in einer Spalte der neuen Datei folgendes machen (in der Spalte kommen nur Nullen oder Einsen vor).
Wenn dort eine 1 einkopiert wurde, soll daraus ein ja gemacht werde und wenn eine 0 einkopiert wurde soll ein nein daraus gemacht werden.
Anbei dazu der Auszug des Makros für den ich das brauche. Hier wird der Wert GEFAHR gesucht und wenn gefunden wird, wird die Spalte ab Zeile 2 bis 99 in die neue Datei in die Spalte 9 (I) ab Zeile 10 eingefügt.
strSuche = "GEFAHR"
If Not strSuche = vbNullString Then
Application.ScreenUpdating = False
With wbAktiv.Worksheets("Tabelle1")
Set raFund = .Rows(1).Find(What:=strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(1).Resize(99).Copy
With wsNeu
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1).Column
If .Cells(1, 1) = "" Then loSpalte = 9
.Cells(10, loSpalte).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Else
MsgBox "Fehler: Der Suchbegriff " & strSuche & " wurde nicht gefunden."
End If
End With
End If
Vielen Dank schon einmal im Voraus.