Bereich markieren in Abhängigkeit von Fundstelle

Sub Makro1() On Error Resume Next Dim month_v As Integer, month_n As String month_v = Worksheets("Balance actual").Range("AB4").Value If month_v = 1 Then month_n = "Jan" Else If month_v = 2 Then month_n = "Feb" Else If month_v = 3 Then month_n = "Mar" Else If month_v = 4 Then month_n = "Apr" Else If month_v = 5 Then month_n = "May" Else If month_v = 6 Then month_n = "Jun" Else If month_v = 7 Then month_n = "Jul" Else If month_v = 8 Then month_n = "Aug" Else If month_v = 9 Then month_n = "Sep" Else If month_v = 10 Then month_n = "Oct" Else If month_v = 11 Then month_n = "Nov" Else If month_v = 12 Then month_n = "Dec" Rows("5:5").Find(What:=month_n, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Range("G9:G81").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H9").Select Application.CutCopyMode = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
grundsätzlich mal:
das "On Error Resums Next" gehört da so nicht hin.
sowas vertuscht nur Programmierfehler, erzeugt u.U. falsche Ergebnisse und erschwert im Falle eines Fehlers die Fehlersuche, weil man nicht genau eingrenzen kann, wo der Fehler passiert.
zum Monatsproblem:
verwende doch eine Feld-Variable:


Dim month_n(12) as string
month_n(1) = "Jan"
month_n(2) = "Feb"
usw...

in der Suchfunktion sieht das dann so aus:


Rows("5:5").Find(What:=month_n(month_v), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

zum selections-Problem:
so sollte es funktionieren:


Activecell.Offset(4,0).resize(73,1).select

allerdings wäre es besser, die ganze Aktion ohne SELECT auszuführen und die Zellen direkt anzusprechen:
CopyPaste ist für diese Aktion auch nicht erforderlich:


Sub Makro1()
dim Spalte as long
Dim month_v As Integer,
dim month_n(12)  As String
month_v = Worksheets("Balance actual").Range("AB4").Value
month_n(1) ="Jan"
month_n(2) ="Feb"
'... usw. bitte ergänzen
Spalte = Rows("5:5").Find(What:=month_n(month_v), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
with range(cells(9, spalte), cells(81, spalte)
.formula = .value
end with
Range("H9").Select
End Sub

Gruß, Daniel

Spalte = Rows("5:5").Find(What:=month_n(month_v), After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Column

Beliebteste Forumthreads (12 Monate)

Bereich markieren in Abhängigkeit von Fundstelle

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread