N
Naruma
Bekanntes Mitglied
- Dabei seit
- 31.08.2007
- Beiträge
- 80
- Reaktionspunkte
- 0
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
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