Herbers Excel-Forum - das Archiv

Zirkelverweis

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Zirkelverweis
von: Thomas

Geschrieben am: 07.04.2005 11:07:15
Hallo zusammen,
ich stehe vor folgendem Problem:
Aufgabenstellung:
Ein vorgefertigte Seite im Tabellenblatt2 wird durch Benutzereingaben im Userform mit Daten "gefüttert". Dabei wird immer in die 1. freie Zelle in Spalte B geschrieben.
Wenn die Seite voll ist, soll eine 2. Seite im gleichen Tabellenblatt erstellt werden. Die Vorlage dafür wird vom Tabellenblatt6 geholt.
Dann soll die 2. Seite mit Daten gefüttert werden. Angefangen mit der 1. leeren Zelle in Spalte B.
So habe ich es gelöst:

Sub leerfinden()
'Erste Leerzeile in Spalte B (Pos.Nr.) finden
Sheets("Tabelle2").Activate
If Tabelle2.Range("B" & Ranger).Value >= 1 Then 'Wenn die letzte Zeile der      Seite voll ist
Sheets("Tabelle6").Activate
Tabelle6.Range("A1:N58").Copy
Sheets("Tabelle2").Activate
Tabelle2.Range("A" & Einf).Select
ActiveCell.PasteSpecial Paste:=xlPasteAll 'Die Vorlage unter die 1. Seite kopieren
Application.CutCopyMode = False
Ranger = Ranger + 58
Einf = Einf + 58
End If
For Each l In Tabelle2.Range("B14:B9999") '1. leere Zeile in "B" finden
If l.Text = "" Then
l.Select
Set l = ActiveCell
Exit For
End If
Next
End Sub

Das funktioniert so weit.
Dann die "Datenfütterung":
If Eingabeüberwachung2 = 1 And _
ComboBox1.Text = "Position1(ohne schotter)" Then
leerfinden
Sheets("Tabelle5").Activate 'Kopiert die Daten von Tabelle5 in Tabelle2
Tabelle5.Range("B4:G4").Copy
leerfinden
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
leerfinden
Sheets("Tabelle5").Activate
Tabelle5.Range("B5:G5").Copy
leerfinden
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
leerfinden
Sheets("Tabelle5").Activate
Tabelle5.Range("B6:G6").Copy
leerfinden
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
leerfinden
Sheets("Tabelle5").Activate
Tabelle5.Range("B7:G7").Copy
leerfinden
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
über = 1
weit = 1
End If
Funktioniert auch. Ich bekomme allerdings in der "Benutzeroberfläche" das "Zirkelverweis-Fenster" angezeigt. Ich denke es hat was damit zu tun, das ich zweimal "leerfinden" bei jedem Copy-Vorgang habe. Das muss ich aber haben, da sonst beim einfügen einer weiteren Seite die .copy funktion vom "leerfinden" überschrieben wird.
Meine Frage:
Wie mache ich es, das das Zirkelverweis - Fenster nicht kommt. Funktionieren tut es ja.
ODER : Wie kann ich es anders machen, damit es nicht kommt !?
Vielen Dank im Vorraus, Thomas
Bild

Betrifft: AW: Zirkelverweis
von: Thomas
Geschrieben am: 07.04.2005 15:29:00
Hat sich soeben erledigt.....
Der Fehler trat wegen der Seitenbeschriftung auf und hatte nichts mit dem oben genannten zu tun. Vielen Dank trotzdem an alle, die sich eventuell Gedanken gemacht haben.
 Bild