Formula mit Variable

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du hast in deinem Code für die Tabelle schon eine Variable "Klasse"
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.

Danke für die schnelle Antwort.
Hier der Code....
beim kursiv markierten Teil weiß ich nicht wie das zu Codieren ist wenn da Variable Werte drinn stehen
ActiveSheet.Range("B2").Formula = Worksheets(Klasse).Cells(n, 2).Value

Private Sub Schüleranlegen_Click()
Dim n As Long
Dim SchülerReiter As String
Dim ws As Variant
Dim Klasse As Variant
Klasse = ActiveSheet.Range("B4").Value
For n = 5 To 35
If IsEmpty(Cells(n, 3).Value) = True Then
Exit Sub
Else
SchülerReiter = Cells(n, 2) & " " & Cells(n, 3) & " " & Cells(n, 4)
For Each ws In ActiveWorkbook.Sheets
If ws.Name = SchülerReiter Then
MsgBox "Der folgende Schüler" & SchülerReiter & "wurde schon angelegt"
Exit Sub
End If
Next ws
Worksheets("Vorlage Schüler").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = SchülerReiter
ActiveSheet.Range("B2").Formula = Worksheets(Klasse).Cells(n, 2).Value
ActiveSheet.Range("C2").Formula = Worksheets(Klasse).Cells(n, 3).Value
ActiveSheet.Range("D2").Formula = Worksheets(Klasse).Cells(n, 4).Value
ActiveSheet.Range("E5").Formula = Worksheets(Klasse).Cells(n, 5).Value
End If
Next n
End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread