| | |
 | Lenovo auf der Hannovermesse 31.03.-04.04.2025 | Halle 15, Stand G76, eine Pressemitteilung
|
|
Autor
|
Thema: Aus markierten Zeilen Werte auslesen! (3332 mal gelesen)
|
ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER
   Beiträge: 31
Registriert: 21.10.2013
|
erstellt am: 22. Okt. 2015 13:48  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, hoffe ihr könnt mir weiterhelfen. 1. Ich möchte in einer Excel Datei mehrere Zeilen markieren.
2. Über einen Butten ein Makro starten.
3. Über Msgbox Wert auslesen welcher in meinem Fall in Spalte N steht. Anbei ein Screenshot zum besseren Verständis. Mfg Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER
Beiträge: 31
Registriert: 21.10.2013 Intel(R) Xeon(R) CPU E5-1650 0 @ 3.20GHz
Arbeitsspeicher 32 GB
Windows 7 Enterprise SP1 64Bit
NVIDIA Quadro 2000<P>Catia R26 V5-R62014 SP3 HF36
|
erstellt am: 22. Okt. 2015 13:50 <-- editieren / zitieren --> Unities abgeben:
|
RL13
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Bauwesen
Beiträge: 2373
Registriert: 23.10.2008
|
erstellt am: 22. Okt. 2015 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für ChristianWW 
Hallo Christian, ich verstehe Bahnhof  per VBA liest man die aktive (markierte) Zelle mit ActiveCell aus. wenn das als Tip schon reicht ansonsten lies Dir mal Deine Frage morgen nochmal durch und versuch Dich klarer auszudrücken ------------------
mfg Roman Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER
Beiträge: 31
Registriert: 21.10.2013 Intel(R) Xeon(R) CPU E5-1650 0 @ 3.20GHz
Arbeitsspeicher 32 GB
Windows 7 Enterprise SP1 64Bit
NVIDIA Quadro 2000<P>Catia R26 V5-R62014 SP3 HF36
|
erstellt am: 22. Okt. 2015 14:39 <-- editieren / zitieren --> Unities abgeben:
Okay nochmal ging vorhin alles ein bisschen schnell sorry dafür. Ich markiere Zeile 9,10,11 anschließend möchte ich über einen CommandButton ein Makro starten welches mir in den markierten Zeilen den wert In Spalte N ausliest. Hoffe ich konnte mich nun deutlicher Ausdrücken.  Mfg Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RL13
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Bauwesen
Beiträge: 2373
Registriert: 23.10.2008
|
erstellt am: 22. Okt. 2015 14:51 <-- editieren / zitieren --> Unities abgeben: Nur für ChristianWW
Aber das sind doch mehrere Werte? nämlich 60, 80 und 10 um mal bei Deinem Beispiel zu bleiben. Die möchtest Du jetzt über eine Messagebox auf dem Bildschirm sehen, wozu? Zwischenfrage: hast Du Kenntnisse in VBA? ------------------
mfg Roman Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ChristianWW
Mitglied
KONSTRUKTEUR/ CAM PROGRAMMIERER
Beiträge: 31
Registriert: 21.10.2013 Intel(R) Xeon(R) CPU E5-1650 0 @ 3.20GHz
Arbeitsspeicher 32 GB
Windows 7 Enterprise SP1 64Bit
NVIDIA Quadro 2000<P>Catia R26 V5-R62014 SP3 HF36
|
erstellt am: 22. Okt. 2015 15:03 <-- editieren / zitieren --> Unities abgeben:
Richtig im meinem Beispiel wären dies drei Werte. Ich möchte grundsätzlich erstmal wissen wie ich diese Werte nacheinander ansprechen kann um Sie später weiterverarbeiten zu können. Meine eigentliche Aufgabenstellung ist zu speziell um sie ganz zu erklären, deshalb würde mir dieser Step erstmal weiterhelfen. VBA Kenntnisse habe ich keine richtigen nur das was bei learning by doing hängen bleibt. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening
Moderator
Arbeiter ツ
    
Beiträge: 2897
Registriert: 06.07.2001 Das Innerste geäussert
und aufs Äusserste verinnerlicht
|
erstellt am: 22. Okt. 2015 18:03 <-- editieren / zitieren --> Unities abgeben: Nur für ChristianWW
Aufgabenstellung: Zitat:
1. Ich möchte in einer Excel Datei mehrere Zeilen markieren.
2. Über einen Butten Schaltfläche ein Makro starten.
3. Über Msgbox Wert auslesen welcher in meinem Fall in Spalte N steht.
Code:
Sub Summe_x()
Summex = 0
For Each cell In Selection
If Left(cell.Address, 3) = "$N$" Then Summex = Summex + cell.Value
Next
MsgBox Summex
End Sub
Code einer Schaltfläche zuweisen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
