Thema Datum  Von Nutzer Rating
Antwort
12.09.2019 12:02:33 PM3
NotSolved
Blau Zellenbezug durch Inputfenester herstellen/Abfrage Spaltenwert
 12.09.2019 12:36:50 Torsten
NotSolved
12.09.2019 13:15:39 PM3
NotSolved
12.09.2019 13:25:47 Torsten
NotSolved
12.09.2019 14:05:35 PM3
Solved
12.09.2019 15:00:21 Torsten
Solved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
12.09.2019 12:36:50		 Views:
583		 Rating:
     
Antwort:
  Ja
Thema:
Zellenbezug durch Inputfenester herstellen/Abfrage Spaltenwert

Hallo PM,

nicht ganz so einfach, wie du dir das denkst. Die Spalte wird mit ActiveCell.Column naemlich als Zahl und nicht als Buchstabe zureuckgegeben. Du kannst aber den Buchstaben aus der Zelladresse (ActiveCell.Address) rausfiltern, um es in der Formel, die du eingeben willst, zu benutzen. Ausserdem musst du VBA mitteilen, dass du eine Formel eingeben willst in die Zelle, sonst gibt VBA das als Text in die Zelle ein.

Versuchs mal so:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub testinput()
 
Dim eingabe As String, Adr As String, SpaBu As String
Dim Zellen As Range
 
Adr = ActiveCell.Address()
SpaBu = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
 
eingabe = InputBox("Bitte geben Sie die Zeile des neuen Titels ein", "Abfrage Zeile", "94")
 
For Each Zellen In Selection
    Zellen.Formula = "=" & SpaBu & eingabe
Next Zellen
 
End Sub

Gruss Torsten

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
12.09.2019 12:02:33 PM3
NotSolved
Blau Zellenbezug durch Inputfenester herstellen/Abfrage Spaltenwert
 12.09.2019 12:36:50 Torsten
NotSolved
12.09.2019 13:15:39 PM3
NotSolved
12.09.2019 13:25:47 Torsten
NotSolved
12.09.2019 14:05:35 PM3
Solved
12.09.2019 15:00:21 Torsten
Solved