Thema Datum  Von Nutzer Rating
Antwort
09.05.2018 08:42:36 V.B.A.
NotSolved
Blau Einzelne Einträge in Zelle prüfen und auf bestimmtes Format setzen
 09.05.2018 10:34:26 V.B.A.
NotSolved
09.05.2018 10:48:23 Werner
NotSolved
09.05.2018 10:54:04 Gast50769
NotSolved
09.05.2018 11:59:35 Werner
NotSolved
09.05.2018 12:10:58 V.B.A.
NotSolved
09.05.2018 14:17:40 Werner
NotSolved
09.05.2018 14:44:23 V.B.A.
Solved

Ansicht des Beitrags:
Von:
V.B.A.		 Datum:
09.05.2018 10:34:26		 Views:
529		 Rating:
     
Antwort:
  Ja
Thema:
Einzelne Einträge in Zelle prüfen und auf bestimmtes Format setzen

Hallo,

ich bin jetzt noch ein Stückchen weiter:

 

Private Sub cmd_Simultanität_aus_Click().
 
 
ActiveSheet.Unprotect Password:=""
 
Dim rngAuswahl As Range
Dim c As Object
 
On Error GoTo LeaveSub
 
Set rngAuswahl = Application.InputBox("Bitte die Zelle markieren, dessen Simultanität geändert werden soll.", Type:=8)
     
    If rngAuswahl.Rows.Count > 1 Then
        MsgBox "Bitte wählen Sie nur ein Equipment / eine Anlage aus.", vbCritical
        Exit Sub
    End If
 
    For Each c In rngAuswahl.Cells
        If IsNumeric(c.Value) And Not IsEmpty(c.Value) Then
            If Cells(c.Row, 7).Value <> "x" Then
                MsgBox "Bitte wählen Sie erst die gesamte Zeile simultan.", vbCritical
                Exit Sub
            End If
           If c.Font.ColorIndex <> 16 Then
                ActiveSheet.Unprotect Password:=""
                c.Font.ColorIndex = 16
                If c = ???? Then
                    c.Offset(0, 1).Font.ColorIndex = 16
                End If
                Range("A6").Value = "Gebäude"
                GoTo 1
            End If
            If c.Font.ColorIndex = 16 Then
                ActiveSheet.Unprotect Password:=""
                c.Font.ColorIndex = xlAutomatic
                Range("A6").Value = "Gebäude"
            End If
        End If
1:
    Next c
 
End Sub


Wie muss denn dann meine Bedingung (Im Code mit Fragezeichen) aussehen, damit er nur in Spalte H den Offset ausführt?

vielen Dank :)

 

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:



  • 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
09.05.2018 08:42:36 V.B.A.
NotSolved
Blau Einzelne Einträge in Zelle prüfen und auf bestimmtes Format setzen
 09.05.2018 10:34:26 V.B.A.
NotSolved
09.05.2018 10:48:23 Werner
NotSolved
09.05.2018 10:54:04 Gast50769
NotSolved
09.05.2018 11:59:35 Werner
NotSolved
09.05.2018 12:10:58 V.B.A.
NotSolved
09.05.2018 14:17:40 Werner
NotSolved
09.05.2018 14:44:23 V.B.A.
Solved