Thema Datum  Von Nutzer Rating
Antwort
Rot RANGE: Zellwerte übergeben
22.12.2022 10:23:32 Axel
NotSolved
22.12.2022 12:03:13 t
NotSolved
22.12.2022 12:53:11 Gast58357
NotSolved
22.12.2022 13:40:01 t
NotSolved
22.12.2022 13:47:49 Axel
NotSolved
22.12.2022 14:11:51 Der Steuerfuzzi
NotSolved
22.12.2022 14:22:23 Axel
NotSolved
22.12.2022 15:03:24 Der Steuerfuzzi
NotSolved
22.12.2022 15:05:18 Der Steuerfuzzi
NotSolved
23.12.2022 09:12:47 Axel
NotSolved
23.12.2022 09:18:27 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
Axel
Datum:
22.12.2022 10:23:32
Views:
1048
Rating: Antwort:
  Ja
Thema:
RANGE: Zellwerte übergeben

Hallo, Ich möchte eine Range abfragen, welche nachfolgend dann formatiert wird.   Allerdings übernimmt VBA & Excel die eingegebenen Werte nicht als Range. Bitte um Hilfe. VG Axel

 

Sub Makro1()
'
Dim Zelleeins As Variant
Zelleeins = "A2"

 

 

Dim Zellezwei As Variant
Zellezwei = "A3"

 

 

Zelleeins = InputBox(" Zelle 1 die formatiert werden soll ")
Debug.Print [Zelleeins]

 

 

Zellezwei = InputBox(" Zelle 2 die formatiert werden soll ")
Debug.Print [Zellezwei]

 

 

 

Tabelle1.Range(Zellereins, [Zellezwei]).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65735
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

 

 

 

 

   
End Sub


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
Rot RANGE: Zellwerte übergeben
22.12.2022 10:23:32 Axel
NotSolved
22.12.2022 12:03:13 t
NotSolved
22.12.2022 12:53:11 Gast58357
NotSolved
22.12.2022 13:40:01 t
NotSolved
22.12.2022 13:47:49 Axel
NotSolved
22.12.2022 14:11:51 Der Steuerfuzzi
NotSolved
22.12.2022 14:22:23 Axel
NotSolved
22.12.2022 15:03:24 Der Steuerfuzzi
NotSolved
22.12.2022 15:05:18 Der Steuerfuzzi
NotSolved
23.12.2022 09:12:47 Axel
NotSolved
23.12.2022 09:18:27 Der Steuerfuzzi
NotSolved