Excel Makro umsetzen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Excel Makro umsetzen

Re: Excel Makro umsetzen

von hawe » Fr, 06.02.2009 19:57

Also gut. Du nimmst alle On Error Goto Loops raus.
Und gehst den Code mit F8 im Einzelschritt durch. WO was klemmt schaust Du nach einem
StartBasic Äquivalent für den nicht unterstützen VBA-Code.
So oder Du arbeitest Dich komplett in das StartBasic Feeling ein.

Excel Makro umsetzen

von traveler_frank » Do, 05.02.2009 18:29

Hallo Zusammen,

Ich benötige hilfe bei der Umsetzung folgendes Makros, habe schon etliche Haare verloren :-((((

Code: Alles auswählen

 Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub projektneu()
On Error Resume Next
   
'Blatt für Projekt anlegen:
        Sheets("Start").Select
        pname = ActiveCell(1, 1).Value
            Sheets("Vorlage").Visible = True
            Sheets("Vorlage").Copy After:=Sheets("Start")
            ActiveSheet.Name = pname
            ActiveSheet.Range("AF2").Value = pname
        If Err.Number <> 0 Then
            MsgBox ("Projekt-Blatt bereits vorhanden")
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = False
            Sheets("Vorlage").Visible = False
            Sheets(pname).Activate
        Exit Sub
        End If
        ActiveWorkbook.Save
        Sheets("Vorlage").Visible = False
        
End Sub
Sub uebertrag()
'Zeit übertragen
On Error Resume Next
    ActiveSheet.Range("AF2").Select
    Set pname = ActiveCell(1, 1)
    ActiveSheet.Range("AG47").Select
    Set pzeit = ActiveCell(1, 1)
    Worksheets("Start").Range("b4:c20").Find(pname).Cells(1, 1 + 1).Value = pzeit
    Range("f15").Select
    Worksheets("Start").Activate
    ActiveWorkbook.Save
    
End Sub
Sub anzeige()
'projekt anzeigen
On Error Resume Next
    pname = ActiveCell(1, 1).Value
    Sheets(pname).Activate
End Sub

Sub sortieren()
On Error Resume Next
'Projekte sortieren
    Range("b4").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("f15").Select
End Sub

Sub einblenden()
    Sheets("Vorlage").Visible = True
    Sheets("Vorlage").Activate
End Sub
Sub ausblenden()
    Sheets("Vorlage").Visible = False
End Sub
Sub hilfe()
    Range("a25").Select
End Sub


Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub projektneu()
On Error Resume Next
   
'Blatt für Projekt anlegen:
        Sheets("Start").Select
        pname = ActiveCell(1, 1).Value
            Sheets("Vorlage").Visible = True
            Sheets("Vorlage").Copy After:=Sheets("Start")
            ActiveSheet.Name = pname
            ActiveSheet.Range("AF2").Value = pname
        If Err.Number <> 0 Then
            MsgBox ("Projekt-Blatt bereits vorhanden")
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = False
            Sheets("Vorlage").Visible = False
            Sheets(pname).Activate
        Exit Sub
        End If
        ActiveWorkbook.Save
        Sheets("Vorlage").Visible = False
        
End Sub
Sub uebertrag()
'Zeit übertragen
On Error Resume Next
    ActiveSheet.Range("AF2").Select
    Set pname = ActiveCell(1, 1)
    ActiveSheet.Range("AG47").Select
    Set pzeit = ActiveCell(1, 1)
    Worksheets("Start").Range("b4:c20").Find(pname).Cells(1, 1 + 1).Value = pzeit
    Range("f15").Select
    Worksheets("Start").Activate
    ActiveWorkbook.Save
    
End Sub
Sub anzeige()
'projekt anzeigen
On Error Resume Next
    pname = ActiveCell(1, 1).Value
    Sheets(pname).Activate
End Sub

Sub sortieren()
On Error Resume Next
'Projekte sortieren
    Range("b4").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("f15").Select
End Sub

Sub einblenden()
    Sheets("Vorlage").Visible = True
    Sheets("Vorlage").Activate
End Sub
Sub ausblenden()
    Sheets("Vorlage").Visible = False
End Sub
Sub hilfe()
    Range("a25").Select
End Sub

Nach oben