AW: Befehl Range("E3") geht nicht
07.01.2007 19:00:36
Uduuh
Hallo,
ehrlich gesagt habe ich hier Verständnisschwierigkeiten. Was beabsichtigst du genau? Mir erscheint das tw. unlogisch.
Den Variablen solltest du auf jeden Fall einen Typ zuweisen.
Dim Blatt As String, Nummer As Integer
Private Sub Bauteilsuche_aktualisieren()
Windows("Bauteilrüstung-Masch.xls").Activate 'Datei auswählen
Sheets("bauteile").Select 'Blatt auswählen
z = 9
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Range("A9", "H" & z - 1).Delete 'Einträge markieren & entfernen
Range("A9").Select '******warum?
'ChDir "G:\braun"
' Workbooks.Open Filename:="G:\braun\Kopie von SMD-RüstungenneuDezember03.xls"
If Blatt = "" And Nummer = 0 Then Call BlattAuswahl
Windows("Kopie von SMD-RüstungenneuDezember03.xls").Activate
Range("C8").Select
Call BlattAuswahl
End Sub
Private Sub BlattAuswahl()
If Nummer = 4 Then
Blatt = Chr(Asc(Blatt) + 1)
Nummer = 0
End If
If Nummer = 0 And Blatt = "" Then
Blatt = "A"
Nummer = 0 'Warum diese Zuweisung? ist doch schon!
End If
If Nummer < 4 Then Nummer = Nummer + 1
End Sub
Gruß ausm Pott
Udo