Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Formel von VBA in Excel Tabelle einfügen
03.11.2006 14:13:24
VBA
Hallo forum,
ich habe eine (Für Euch sicherlich einfache) Frage:
Ich lege per Dialogbox Tabellenblätter an.
es werden zB. 2 Tabellenblätter angelegt (Kope von vorhandenen Blättern)
Jetzt sollen in einer Haupttabelle Zellenverweise gesetzt werden. (Die Zelle A7 ist immer gleich)
Name: Pos. 1, Pos. 2, Pos. 3, usw.
Ich habe folgende Variablen:
aktuellessheet = Name des letzten angelegten Blatts
Verweis der in die Tabelle geschrieben werden soll:
= "[Blattname des letzten Blatts (hier: aktuellessheet)]" & '[Blattname des letzten Blatts (hier: aktuellessheet)]'!A7
Beispiel: ="Pos. 1" & 'Pos. 1'!A7
Ich habe alles möglich ausprobiert aber irgendwie will es nicht.
Skript:

Sub NeueBlätter()
Application.ScreenUpdating = False
start:
Dim AnzahlBlätter As String
Dim Blattname As String
Dim Frage As Single
Dim Aktivezelle As String
Dim posnr As String
Dim aktuellessheet As String
Rem On Error GoTo ende
Rem Zelle I1 und I2 mit Anzahl der Positionen füllen
Sheets("Gesamtübersicht").Range("Gesamtübersicht!i1").Value = (Worksheets.Count - 3)
Range("Gesamtübersicht!i2").Value = ((Worksheets.Count - 3) / 2)
Rem Eingabe Anzahl der neuen Positionen
AnzahlBlätter = InputBox("Anzahl Blätter eingeben:", "Bitte eine durch 2 teilbare Zahl eingeben")
If AnzahlBlätter = "" Then GoTo schluss Else 'Fehlermeldung abfangen
Frage = Worksheets.Count - 2
For i = Frage To AnzahlBlätter + Frage - 1
Rem Blätter anlegen
Blattname = ("Pos. " & i)
Worksheets.Add
ActiveSheet.Name = Blattname
If i / 2 = Int(i / 2) Then GoTo ungerade Else GoTo gerade
gerade:
Sheets("Mk_Vorlage").Select
Cells.Select
Selection.Copy
ActiveSheet.Range("a1").Select
Sheets("Pos. " & i).Select
Cells.Select
ActiveSheet.Paste
ActiveSheet.Range("a1").Select
Rem Gesamtübersicht ausfüllen
MsgBox ("i = " & i)
Aktivezelle = ("A" & (20 + i))
aktuellessheet = ("Pos. " & i)
MsgBox (aktuellessheet)
MsgBox ("Aktivezelle= " & Aktivezelle)
Sheets("Gesamtübersicht").Select
posnr = ("Pos. ")
Range(Aktivezelle).Formula = "=""" & aktuellessheet " Hier soll die Formel geschrieben werden!
GoTo next_i
ungerade:
Sheets("Lk_Vorlage").Select
Cells.Select
Selection.Copy
ActiveSheet.Range("a1").Select
Sheets("Pos. " & i).Select
Cells.Select
ActiveSheet.Paste
ActiveSheet.Range("a1").Select
next_i:
Next i
GoTo schluss
ende:
MsgBox ("Fehler in der Eingabe!")
GoTo start
schluss:
Sheets("Gesamtübersicht").Move before:=Sheets(1)
Range("Gesamtübersicht!i1").Value = (Worksheets.Count - 3)
Range("Gesamtübersicht!i2").Value = ((Worksheets.Count - 3) / 2)
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel von VBA in Excel Tabelle einfügen
03.11.2006 19:50:30
VBA
Hallo Jens,
die Zeile zum Eintrag der Formel in die Gesamtübersicht muss folgendermaßen aussehen:

Range(Aktivezelle).Formula = "=""" & aktuellessheet & """ & '" & aktuellessheet & "'!A7"

Gruss
Franz
insgesamt kannst du folgenden Code-Abschnitt vereinfachen und schneller machen:

gerade:
Sheets("Mk_Vorlage").Cells.Copy Destination:=Sheets("Pos. " & i).Range("A1")
Rem Gesamtübersicht ausfüllen
MsgBox ("i = " & i)
Aktivezelle = ("A" & (20 + i))
aktuellessheet = ("Pos. " & i)
MsgBox (aktuellessheet)
MsgBox ("Aktivezelle= " & Aktivezelle)
posnr = ("Pos. ")
Sheets("Gesamtübersicht").Range(Aktivezelle).Formula = _
"=""" & aktuellessheet & """ & '" & aktuellessheet & "'!A7"
GoTo next_i
ungerade:
Sheets("Lk_Vorlage").Cells.Copy Destination:=Sheets("Pos. " & i).Range("A1")
next_i:

Anzeige
AW: Formel von VBA in Excel Tabelle einfügen
04.11.2006 06:27:50
VBA
Vielen Dank für die Antwort,
werde es direkt ausprobieren wenn ich gleich im Büro bin!
Jens

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige