Thema Datum  Von Nutzer Rating
Antwort
04.05.2018 16:04:50 Matthias
NotSolved
Blau Werte aus Vorlage in neues Tabellenblatt kopieren
 04.05.2018 20:39:23 AlterDresdner
NotSolved
04.05.2018 20:46:07 AlterDresdner
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
04.05.2018 20:39:23		 Views:
623		 Rating:
     
Antwort:
  Ja
Thema:
Werte aus Vorlage in neues Tabellenblatt kopieren

Hallo Matthias,
damit es weitergeht:
 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub neuanlegen()
Dim zeile
  If Worksheets("Vorlage").Range("B1")="" then
    msgbox "Projektname leer!", vbCritical, "Projektnamen ändern"
    Exit Sub
  End If
  For Each zeile In ThisWorkbook.Sheets 'zeile ist hier temporär Sheet
    If zeile.Name = Worksheets("Vorlage").Range("B1") Then 'Test auf doppelten Namen
      MsgBox "Projektname existiert schon!", vbCritical, "Projektnamen ändern"
      Exit Sub
    End If
  Next zeile
  ActiveSheet.Copy after:=Sheets(Sheets.Count)
  zeile = Worksheets("Übersicht").Cells(Rows.Count, 2).End(xlUp).Row + 1'erste leere zeile in Spalte B
  With ActiveSheet
    .Name = .Range("B1")
    .Shapes(1).Delete
    Worksheets("Übersicht").Cells(zeile, 1).FormulaR1C1 = "=" & .Name & "!R4C2" 'Formel einfügen!
    .Range("B1").Copy Destination:=Worksheets("Übersicht").Cells(zeile, 2)
    .Range("B2").Copy Destination:=Worksheets("Übersicht").Cells(zeile, 3)
  End With
End Sub

Gruß der AlteDresdner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.05.2018 16:04:50 Matthias
NotSolved
Blau Werte aus Vorlage in neues Tabellenblatt kopieren
 04.05.2018 20:39:23 AlterDresdner
NotSolved
04.05.2018 20:46:07 AlterDresdner
Solved