AW: Text mit VBA hinzufügen
09.03.2016 17:59:53
Michael
Hi Fritz,
versuch's mal damit:
Option Explicit
Sub Makro1richtig()
Dim i&, z2& ' & heißt so viel wie as long - z2 wie zeile tab.2
Dim letzteZeile&
Dim shN As Worksheet ' shN wie sheet Nach
Dim ynm$(1 To 3, 1 To 1)
Const HiRi = "NORD,SÜD,WEST,OST"
ynm(1, 1) = "YES": ynm(2, 1) = "NO": ynm(3, 1) = "MAY"
Set shN = Sheets("Tabelle2")
letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
z2 = 10
For i = 6 To letzteZeile
If Cells(i, 1).Value = "" Then
Range("A" & i & ":I" & i).Copy shN.Range("A" & z2)
shN.Range("J" & z2) = ""
z2 = z2 + 1
ElseIf InStr(HiRi, UCase(Trim(Cells(i, 1).Value))) > 0 Then
Range("A" & i & ":I" & i).Copy shN.Range("A" & z2).Resize(3)
shN.Range("J" & z2).Resize(3) = ynm
z2 = z2 + 3
End If
Next i
Application.CutCopyMode = False
End Sub
... und bitte mit option excplicit am Anfang, dann deklarierst Du Deine Variablen zwangsweise "sauber".
Schöne Grüße,
Michael