VBA Code verknüpfen?

Forumthread: VBA Code verknüpfen?

21.03.2017 13:32:48

Juergen

Hallo zusammen,
mir scheints nicht auszugehen. Ich hoffe ich nerv nicht zu sehr.
Aber als kompletter VBA DAU muss ich diesbezüglich wieder nachfragen:
Kann man die beiden VBA Codes in einer Anweisung verknüpfen, mir will's nicht gelingen?:
a)


Sub ausblenden()
Dim r As Range
For i = 8 To 160
If IsNumeric(Cells(i, 3)) And Cells(i, 3) > 8001 Then
If r Is Nothing Then
Set r = Cells(i, 3)
Else
Set r = Union(r, Cells(i, 3))
End If
End If
Next i
If Not r Is Nothing Then r.EntireRow.Hidden = True
End Sub

..und diese hier
b)


Sub SpalteWeg()
ActiveSheet.Columns(5).Hidden = True
End Sub

Vielen dank für jede Hilfestellung!
Gruss, Juergen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Code verknüpfen?

21.03.2017 13:52:05

ChrisL
AW: VBA Code verknüpfen?

21.03.2017 14:06:11

Juergen
RECHERCHE: Makro im Makro aufrufen

21.03.2017 14:04:19

robert
AW: RECHERCHE: Makro im Makro aufrufen

21.03.2017 14:11:25

Juergen

AW: VBA Code verknüpfen?

21.03.2017 13:52:05

ChrisL

Hi Juergen
Entweder machst du ein drittes Makro, welches die anderen beiden aufruft:

Sub t()
Call ausblenden
Call SpalteWeg
End Sub

oder du schreibst alles in ein einziges Makro rein:

Sub ausblendenundSpalteWeg()
Dim r As Range
For i = 8 To 160
If IsNumeric(Cells(i, 3)) And Cells(i, 3) > 8001 Then
If r Is Nothing Then
Set r = Cells(i, 3)
Else
Set r = Union(r, Cells(i, 3))
End If
End If
Next i
If Not r Is Nothing Then r.EntireRow.Hidden = True
ActiveSheet.Columns(5).Hidden = True
End Sub

cu
Chris

AW: VBA Code verknüpfen?

21.03.2017 14:06:11

Juergen

Hallo Chris,
vielen Dank für die schnelle Antwort.
Ich bevorzuge es in einem Code, das passt prima. Das erübrigt nun, dass man auf 2 Schritte die Ausblendungen machen muss.
Herzlichen Dank nochmals,
Gruss, Juergen

RECHERCHE: Makro im Makro aufrufen

21.03.2017 14:04:19

robert

Hi,
auch als angeblicher DAU kann man die Hilfe oder RECHERCHE benutzen!

AW: RECHERCHE: Makro im Makro aufrufen

21.03.2017 14:11:25

Juergen

Hallo Robert,
ja das ist richtig. Doch wollte ich ja "verknüpfen" und nicht "call by call" ausführen.
hatte den Code auch einkopieren versucht, aber ohne Leerzeile. Das wirds wahrscheinlich gewesen sein.
Sowas findet man nicht in Recherche, dass muss man lernen oder frägt Profis.
Danke jedenfalls für die Hilfe hier im Forum, ...sucht seines Gleichen!
Gruss, Juergen

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA Code verknüpfen?

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread