VBA Prozedur Problem

Naruma · 13.04.2010

Hallo,

ich muss gerade mit VBA arbeiten.
Aber ich versteh das nicht ganz mit den Prozeduren...

Ich will einfach das Unterprogramm "BlattPrüfen" im Hauptprogramm "Zusammenfassen" aufrufen.
Hab es erst mit einer Funktion probiert, ging aber nicht. Wenn ich alles ins Hauptprogramm schreibe funktioniert es wunderbar...

Ich beschäftige mich erst seit gestern mit VBA...
Wundert euch nicht wenn meine Frage wahrscheinlich saublöd ist :wah:

Hier mein Code:

Sub Zusammenfassen()
Dim Zeile1&, Zeile2&, Zeile3&, letzteZ&
'Prüfen ob Tabellenblatt 'Zusammenfassung' vorhanden ist'
BlattPrüfen
ActiveSheet.Move Before:=Worksheets(1)
'Von Blatt 1 bis Blatt 13 zusammenfassen'
For i = 1 To 12
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 5).End(xlUp).Row
Zeile1 = Worksheets("Zusammenfassung").Cells(Rows.Count, 5).End(xlUp).Row + 1
.Range("B3:B" & letzteZ).Copy Worksheets("Zusammenfassung").Range("A" & Zeile)
Zeile2 = Worksheets("Zusammenfassung").Cells(Rows.Count, 5).End(xlUp).Row + 1
.Range("C3:C" & letzteZ).Copy Worksheets("Zusammenfassung").Range("B" & Zeile)
Zeile3 = Worksheets("Zusammenfassung").Cells(Rows.Count, 5).End(xlUp).Row + 1
.Range("G3:G" & letzteZ).Copy Worksheets("Zusammenfassung").Range("C" & Zeile)
End With
Next
End Sub

Public Sub BlattPrüfen()
If Worksheet.Name = "Zusammenfassung" Then
Application.DisplayAlerts = False
Worksheets("Zusammenfassung").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "Zusammenfassung"
Else
Worksheets.Add.Name = "Zusammenfassung"
End If
End Sub

TrµMAn · 13.04.2010

hab zwar von VBA keine Ahnung, würde aber sagen, dass du dem BlattPrüfen() dein Object als Parameter übergeben musst

PyroDragonfly · 13.04.2010

ich hab von vba auch keinen plan, aber wird eine funktion nicht immer mit BlattPrüfen() aufgerufen?

und das mit dem blatt übergeben klingt auf jeden fall schonmal logisch, weil die variable worksheet gilt ja nur in der zusammenfassen-funktion

Naruma · 13.04.2010

ich hab alles probiert und überall bei google gesucht, ich find das Problem nicht. Wahrscheinlich denk ich einfach falsch

PyroDragonfly · 14.04.2010

hm... hast du schonmal debuggt? dann müsstest du ja finden, ab wo er nichtmehr weiter geht bz w nichtmehr das macht, was er soll... geht er in die funktion? macht er da das richtige?

ich nehm mal an, dass du entweder einen zeiger auf worksheet machen musst (wenn das in vba möglich ist, ka oO) oder einfach das, was er in der f unktion macht irgendwie wieder als rückgabewert an die aufrufende funktion zurückgeben....

Naruma · 14.04.2010

Ich glaub es liegt hier an dem Abschnitt. Hier springt er raus und bringt den Fehler, dass ein Objekt fehlen würde:

If Worksheet.Name = "Zusammenfassung" Then

TrµMAn · 14.04.2010

wie wir schon vermutet haben wird wohl Worksheet in dem Kontext nicht existieren.

Naruma · 14.04.2010

Aber wie könnte es sonst funktionieren?:wah:

PyroDragonfly · 14.04.2010

wo ist worksheet eigentlich deklariert?

Naruma · 14.04.2010

Wie deklariert?

Airfighter76 · 14.04.2010

Naja in C++ musst du jede Variable erst Deklarieren, damit sie verwendbar ist, das müsste auch in VBA so sein. D.h. du musst bevor du worksheet benutzen kannst sie deklarieren so z.b.

Code:

int worksheet = 0;

Naruma · 15.04.2010

achso meinst du das. Worksheet muss man nicht deklarieren. Ist ne Klasse.

PyroDragonfly · 15.04.2010

und wo ist die klasse? ist sie public oder private? (müsste es doch auch in vb geben, oder?)

Naruma · 15.04.2010

Du musst es einfach nicht deklarieren^^

So funktioniert es, aber er prüft halt nicht ob das Blatt schon vorhanden ist und das ist extrem wichtig:

Sub Zusammenfassen()
Dim Zeile1&, Zeile2&, Zeile3&, letzteZ&
'Prüfen ob Tabellenblatt 'Zusammenfassung' vorhanden ist'
Application.DisplayAlerts = False
Worksheets("Zusammenfassung").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "Zusammenfassung"
ActiveSheet.Move Before:=Worksheets(1)
'Von Blatt 1 bis Blatt 13 zusammenfassen'
For i = 1 To 12
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
Zeile1 = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("B3:B" & letzteZ).Copy Worksheets("Zusammenfassung").Range("A" & Zeile1)
Zeile2 = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("C3:C" & letzteZ).Copy Worksheets("Zusammenfassung").Range("B" & Zeile2)
Zeile3 = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("G3:G" & letzteZ).Copy Worksheets("Zusammenfassung").Range("C" & Zeile3)
End With
Next
End Sub

Naruma · 15.04.2010

Naja ich hab es jetzt anders gelöst.

So funktioniert es, danke für die Hilfe

Sub Zusammenfassen()
Dim Zeile1&, Zeile2&, Zeile3&, letzteZ&
'Prüfen ob Tabellenblatt 'Zusammenfassung' vorhanden ist'
If MsgBox("Wurde das Makro schon einmal ausgeführt?", vbYesNo) = vbYes Then
Application.DisplayAlerts = False
Worksheets("Zusammenfassung").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "Zusammenfassung"
Else
Worksheets.Add.Name = "Zusammenfassung"
End If
ActiveSheet.Move Before:=Worksheets(1)
'Von Blatt 1 bis Blatt 13 zusammenfassen'
For i = 1 To 13
With Worksheets(i)
letzteZ = .Cells(Rows.Count, 2).End(xlUp).Row
Zeile1 = Worksheets("Zusammenfassung").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("B3:B" & letzteZ).Copy Worksheets("Zusammenfassung").Range("A" & Zeile1)
Zeile2 = Worksheets("Zusammenfassung").Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("C3:C" & letzteZ).Copy Worksheets("Zusammenfassung").Range("B" & Zeile2)
Zeile3 = Worksheets("Zusammenfassung").Cells(Rows.Count, 3).End(xlUp).Row + 1
.Range("G3:G" & letzteZ).Copy Worksheets("Zusammenfassung").Range("C" & Zeile3)
End With
Next
End Sub

VBA Prozedur Problem

Naruma

TrµMAn

PyroDragonfly

Naruma

PyroDragonfly

Naruma

TrµMAn

Naruma

PyroDragonfly

Naruma

Airfighter76

Naruma

PyroDragonfly

Naruma

Naruma

VBA Prozedur Problem

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums