Hilfe beim ausführen mehrere Makros ..
31.07.2016 13:33:52
Shadow
ich bräuchte mal eure Hilfe.. ich bin kein Profi und hab das nur mal "logisch" zusammen gebastelt.
Folgendes Problem: ich habe zwei Makros die alleine funktionieren allerdings möchte ich das die in einem Makro ausgeführt werden...
Das Makro an sich soll können: 1. Schritt :die ganzen leeren Rows ausblenden. 2. Schritt :Nach einem Wort suchen bzw zwei Wörtern und die darunter liegenden Zellen in einen Zahl formatieren. 3. Schritt :die leeren Rows wieder einblenden
Mein bisheriger Fortschritt sieht so aus:
Sub EinAnfang()
Dim lngSpalte As Long
lngSpalte = 1
For A = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(A, 1).Value = "" Then
Rows(A).Delete Shift:=xlUp
End If
Next A
Cells.Find(What:="Preis Teilnehmer", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Dim rng As Range
Dim nohand As Range
For Each rng In Selection.Cells
With rng
zs = rng
If zs "Preis Teilnehmer" Then
betrag = zs / 1
.NumberFormat = "General"
.Value = betrag
End If
End With
Next rng
Cells.Find(What:="Betrag", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
For Each nohand In Selection.Cells
With nohand
zs = nohand
If zs "Betrag" Then
betrag = zs / 1
.NumberFormat = "General"
.Value = betrag
End If
End With
Next nohand
End Sub
---------------------------------------------
Sub leerzeile()
Dim lngRow As Long, A As Long
lngRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For A = lngRow To 1 Step -1
If Cells(A, 1) = "Summe Premiumservices" Then
Rows(Cells(A, 1).Row).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub