Dim-Select-Activat-Nachhilfe Unterricht
03.01.2008 14:04:58
michael
3 ist heut der dritte Tag
ob mir jemand helfen mag
zum lernen ich mich heute stelle an
denn allein ichs leider noch nicht kann.
Herzlichen Gruß ins Forum
Ich habe 2 Dateien, in der einen werden alle Belege erfasst (im Makro die Datei heute )
und jedem Beleg wird eine KontoNr .zugewiesen.
Von dieser Datei kopiere ich die einzelnen Zeilen
in das jeweilige Kontoblatt ( 65 Konten ) und ( 12 )Monate (im Makro die Datei morgen)
Der ganze Kopiervorgang funktioniert einwandfrei und die
fehlende Schleife gibt es auch schon.
Meine bitte ist jetzt , kann man dieses Makro Verschönern und
wenn ja ,bitte wie ?
Und die Dim Anweisungen notfalls Korrigieren
Danke für den Nachhilfe Unterricht.
(der kleine) michael
Option Explicit
Sub KleineVersionTest1()
Dim kontoNr As String '
. 'Kontoblatt in Zieldatei'
Dim heute As String '
... 'Bank - Datei
Dim morgen As String '
.. 'Zieldatei Konten - Datei
Dim meizeil As Range '
... 'ActiveCell.Offset(0, -5).Range("A1:F1").Select
. 'Set meizeil = Selection '("A1:F1")
Dim monatfind As String '
.. 'Find Monat aus Heute "Bank"
Dim AnzahlZellen As Long
Dim Bereich As Range
heute = ActiveWorkbook.Name '
..... 'heute Datei Bank ,usw
monatfind = ActiveSheet.Cells(2, 2) ' '
...zb.Jänner in Datei Bank (heute)
kontoNr = ActiveCell '
..
. 'in Datei Bank zb.8000
If Selection.Interior.ColorIndex = 36 Then
MsgBox "Diese Zeile wurde schon Kopiert"
Exit
Sub
End If
ActiveWindow.ActivateNext
morgen = ActiveWorkbook.Name '
. 'morgen Zieldatei Konten
If heute = morgen Then
MsgBox "Die Datei- - ZielKonten2007.xls - -ist--NICHT-- geöffnet ! " _
& Chr(10) & Chr(10) & " == Vorgang wird Abgebrochen ! == "
Exit Sub
End If
If morgen "ZielKonten2007.xls" Then
MsgBox "Die Ziel Datei ist Falsch ! " _
& Chr(10) & Chr(10) & "die Bezeichnung muß == ZielKonten2007.xls sein == Vorgang wird _
Abgebrochen ! "
Exit Sub
End If
Sheets(kontoNr).Select '------------------------------------------- 'KontenBlatt in Zieldatei
Set Bereich = Sheets(kontoNr).Cells.Find(What:=monatfind, After:=Range("B1"), LookIn:= _
xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Offset(1, -1)
AnzahlZellen = Range("B:B").Find("Summe " & monatfind).Row - Bereich.Row
Bereich.Select
Windows(heute).Activate
kontoNr = ActiveCell
ActiveCell.Offset(0, -5).Range("A1:F1").Select
Set meizeil = Selection '
.. '("A1:F1")
MsgBox "Diese Zeile wird Kopiert ! "
Windows(morgen).Activate
Sheets(kontoNr).Select
meizeil.Copy
ActiveCell.PasteSpecial Paste:=xlPasteAll
MsgBox "Kopierte Zeile wurde eingefügt !"
Windows(heute).Activate
ActiveCell.Offset(0, 5).Range("A1").Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Offset(2, 0) = "einf" Then 'Zwei Zeilen über einf !!?
ActiveCell.Offset(1, 0).Select
einfügZeilen '
'Makro Zeile einfügen
End If
End Sub