Makroausführung auf bestimmte Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
so läuft es:

Sub Transportversuch()
Dim blName$
Dim zl, sp, s As Integer
    If Not Intersect(Range(Selection.Address), Range("H12:H200")) Is Nothing Then

        Application.ScreenUpdating = False


        'Sheets("Übersicht").Activate
        blName = ActiveCell.Text
        zl = ActiveCell.Row
        sp = ActiveCell.Column


        Sheets("Transportversuch").Copy after:=Sheets(Sheets.Count)
        Sheets("Übersicht").Activate

        With Sheets("Transportversuch (2)")
            .Visible = True
            .Name = blName

        End With

        Sheets("Übersicht").Hyperlinks.Add Anchor:=Selection, _
            Address:="", SubAddress:=Selection & "!A1"

        'SubAddress = "'SW-EH'!A1"

        'Sortieren nach AP_Liste

        Sheets(blName).Activate
        ActiveSheet.Unprotect ("mfe")

        Cells(2, 3) = Sheets("Übersicht").Cells(zl, sp)


        ActiveSheet.Protect ("mfe")

        Sheets("Übersicht").Activate

        Application.ScreenUpdating = True

    Else
        MsgBox "Bitte Zelle aus H12:H200 wählen"
    End If
End Sub

Wobei kann ich noch helfen?

Vielen Dank, es funktioniert :-)
Mein Problem ist nun noch, dass ich im Übersichtenblatt noch eine Abfrage realisieren muss. Und zwar in den Zellen H12 bis G200, wie folgt:
1. Abfrage, ob in Zelle H12 bis H200 ein Link exsistiert (um zu erkennen, dass ein neues Tabellenblatt mit dem neuen Namen der in Zelle H12, H13, ... eingefügt wurde.
2. Ob in dem neu-erstellten Blatt in Zelle H2 (immer gleich) ein "ja" eingetragen wurde (Bestätigung, dass der Transportversuch erfolgreich war)
3. Wenn ein "ja" eingetragen wurde, dann soll im Übersichtenblatt in der entsprechenden Zeile ein "x" erscheinen und das Feld "grün" markiert (kann ich dann via "bedingter Formatierung machen)
Das Problem ist, dass eine Routine eingearbeitet werden müsste, die bei Programmstart immer alle Zellen im Übersichtenblatt (H12:H200) durchläuft und "nachschaut", ob der Link aktiv ist (das Tabellenblatt existiert) und wenn ja, dann "nachschaut", ob ein "ja" vorhanden ist. Allerdings sind die Namen der Tabellenblätter immer unterschiedlich (ergeben sich das dem Zelleninhalt (H12:H200).
Ich hoffe, ich konnte meine Problem erklären .?.
Die Zellen G12 bis G200 sollen ein "x" erhlaten, sobald das Tabellenblatt mit dem Namen aus H12 bis H200 existiert und ein "ja" in der Zelle $H$2 vorhanden ist.
Gruß Bernd

Beliebteste Forumthreads (12 Monate)

Makroausführung auf bestimmte Spalte

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread