Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

selektierte bereiche auslesen

selektierte bereiche auslesen
16.03.2004 23:31:18
mehmet
hallo forum
nicht erschrecken! wie kann ich das korrigieren bitte

Private Sub CommandButton1_Click()
if spalte"d" selecte then
do until MsgBox "inhalt.spalte.b.von.dropdown"
Else
do until msgbox "inhalt.spalte.b.von.einzelselektion"
wenn nicht beide then
do until msgbox "inhalt.spalte.b.von.d1:d30"
End Sub

dank und gruss
mehmet
bsp datei
https://www.herber.de/bbs/user/4387.xls

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: selektierte bereiche auslesen
17.03.2004 00:07:54
PeterW
Hallo Mehmet,
die erste Zeile deines Codes lässt sich eventuell noch übersetzen mit
If ActiveCell.Column = 4 Then
aber spätestens danach geht das Raten los. Beschreib mal im Klartext, was du möchtest.
Gruß
Peter
AW: selektierte bereiche auslesen
17.03.2004 22:39:12
mehmet
hallo peter
es geht darum
inhalte einer spalte (ist mit dropdown versehen) sollen ausgelesen werden
1. mit einem botton möchte ich die ganze spalte
auslesen lassen
2. mit einem anderen button sollen nur die ausgelesen werden,
die nur selektiert wurden
3. mit einem anderen button sollen nur die ausgelesen werden,
die mit dropdown gefiltert wurden
die ausgelesenen werte der zellinhalte sollen als msgbox dargestellt werden
natürlich für dich erstmal schleierhaft allerdingst werde ich den code später selber anpassen
https://www.herber.de/bbs/user/4411.xls
musster datei habe ich per einzelselektion versehen
dank dir
gruss mehmet
Anzeige
AW: selektierte bereiche auslesen
18.03.2004 01:21:26
PeterW
Hallo Mehmet,
für die ausgewählten hab ich dir einen Ansatz im neuen Thread geschrieben. die anderen Aufgaben kannst du so lösen:

Private Sub CommandButton1_Click()
'alle auslesen
Dim lgRow As Long
Dim str As String
str = Range("D2")
For lgRow = 3 To Range("D65536").End(xlUp).Row
str = str & vbLf & Cells(lgRow, 4)
Next
MsgBox str
End Sub


Private Sub CommandButton3_Click()
'gefilterte auslesen
Dim lgRow As Long
Dim str As String
For lgRow = 2 To Range("D65536").End(xlUp).Row
If Rows(lgRow).Height > 0 Then
str = str & Cells(lgRow, 4) & vbLf
End If
Next
MsgBox str
End Sub</pre>
Gruß
Peter

Anzeige
AW: selektierte bereiche auslesen
18.03.2004 09:30:05
mehmet
hallo peter
super es läuft
dank dir
wie kann man das ganze jetzt so gestallten,
dass nicht alles in einem msgbox dargestellt werden
sondern als einzelne msgbox pro zelle hintereinander
es sollen also dir msgboxen hinterenander folgen
dank dir
gruss
mehmet
AW: selektierte bereiche auslesen
18.03.2004 12:07:03
PeterW
Hallo Mehmet,
nicht getestet aber das sollte so funktionieren:

Private Sub CommandButton1_Click()
'alle auslesen
Dim lgRow As Long
For lgRow = 2 To Range("D65536").End(xlUp).Row
MsgBox Cells(lgRow, 4)
Next
End Sub


Private Sub CommandButton3_Click()
'gefilterte auslesen
Dim lgRow As Long
For lgRow = 2 To Range("D65536").End(xlUp).Row
If Rows(lgRow).Height > 0 Then
MsgBox Cells(lgRow, 4)
End If
Next
End Sub

Gruß
Peter
Anzeige
AW: selektierte bereiche auslesen
18.03.2004 23:38:03
mehmet
hallo peter
perfekt, es funktioniert
dank dir herzlich
gruss
mehmet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige