Re(11): Excel Formel - Probiers mit vba

Excel Formel (39 Beiträge, 536 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Folgende Frage:

Ich habe zwei Spalten

A                 B
1                 frei
2                 Markus Maier
3                 Huber Clemens
4                 frei
5                 frei
6                 Max Mustermann

Ich will jetzt folgendes Resultat:

Wenn in der Spalte b "frei" steht dann möchte ich die zugehörige Nummer aus Spalte a irgendwo angedruckt haben!

GEHT DAS? Ich will wenn es geht keine PIVOT Tabelle haben....

DANKE FÜR EURE HILFE!

Hilf auch Du! http://forum.geizhals.at/t261360.html

Re: Excel Formel (The Brain am 28.07.2004, 11:20:41)

Re(2): Excel Formel (max789 am 28.07.2004, 11:55:12)

Re(3): Excel Formel (The Brain am 28.07.2004, 12:33:55)

Re(3): Excel Formel (Sputum am 28.07.2004, 16:45:53)

Re(4): Excel Formel (Penguin am 28.07.2004, 17:52:57)

Re(5): Excel Formel (Sputum am 29.07.2004, 08:30:09)

Re(6): Excel Formel (Penguin am 29.07.2004, 15:19:30)

Re: Excel Formel (MJFox am 28.07.2004, 17:22:08)

Re(2): Excel Formel (Sputum am 29.07.2004, 08:31:13)

Re(3): Excel Formel (max789 am 29.07.2004, 08:47:04)

Re(4): Excel Formel (Sputum am 29.07.2004, 08:52:52)

Re(5): Excel Formel (Strahli am 29.07.2004, 08:57:10)

Re(6): Excel Formel (Sputum am 29.07.2004, 09:01:32)

Re(7): Excel Formel (max789 am 29.07.2004, 09:45:46)

Re(8): Excel Formel (Sputum am 29.07.2004, 09:51:13)

Re(9): Excel Formel - Probiers mit vba (neu_hier am 30.07.2004, 01:06:55)

Re(10): Excel Formel - Probiers mit vba (Sputum am 30.07.2004, 07:56:18)

also wenn du schon soweit gehen willst, dann bitte ordentlich

option explicit
public sub getFreeNumbers()
dim rngArea as excel.range,rngCell as excel.range,rngTarget as excel.range
dim wks as worksheet
dim strTarget as string
dim lngRow as long
dim intColumn as integer

set wks=worksheets("bediener")
'ziel auswaehlen
strtarget=getrange()
lngRow=clng(mid(strtarget,1,instr(1,strtarget,",")-1))
intcolumn=cint(mid(strtarget,instr(1,strtarget,",")+1))
set rngtarget=wks.cells(lngrow,intcolumn)

'spalte B
set rngarea=wks.cells(1,2).offset(0,0).range("a1:a65536")
'nur die mit constanten verwenden (nicht leer, keine Formel)
set rngarea=rngarea.SpecialCells(xlCellTypeConstants)

for each rngCell in rngarea
   if rngcell.text="frei" then
     if len(rngtarget.text)<>0 then
         rngtarget.value=rngtarget.text & "," & rngcell.row
     else
         rngtarget.value="Zahlen die frei sind: " & rngcell.row
    end if
  end if
next rngcell

end sub

public function getRange() as string
dim rng as excel.range
dim strText as string

strtext="Bitte eine Zelle im aktiven Arbeitsblatt auswaehlenauswaehlen " & _
"in die die Liste geschrieben werden soll:!"
anfang:
set rng=application.inputbox(strtext, Type:=8)
if rng.rows.count>1 or rng.columns.count>1 then
msgbox "Bitte nur eine einzelne Zelle im aktiven Arbeitsblatt auswaehlen!"
goto anfang:
endif
getRange=rng.row & "," & rng.column
end function

mfg

Penguin

Re(12): Excel Formel - Probiers mit vba (Penguin am 30.07.2004, 13:39:23)

Re(12): Excel Formel - Probiers mit vba (Sputum am 30.07.2004, 13:44:12)

Re(13): Excel Formel - Probiers mit vba (Penguin am 30.07.2004, 14:37:02)

Re(13): Excel Formel - Probiers mit vba (Penguin am 30.07.2004, 14:38:39)

Re(14): Excel Formel - Probiers mit vba (Penguin am 30.07.2004, 14:40:52)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Sputum am 30.07.2004, 14:52:23)

Re(15): Excel Formel - Probiers mit vba (Sputum am 30.07.2004, 14:58:35)

Re(16): Excel Formel - Probiers mit vba (Penguin am 30.07.2004, 15:10:25)

Re(17): Excel Formel - Probiers mit vba (Sputum am 02.08.2004, 07:37:28)

Re(18): Excel Formel - Probiers mit vba (Penguin am 02.08.2004, 16:58:06)

Re(19): Excel Formel - Probiers mit vba (Sputum am 02.08.2004, 17:43:27)

Re(20): Excel Formel - Probiers mit vba (Penguin am 02.08.2004, 18:28:37)

Re(21): Excel Formel - Probiers mit vba (Sputum am 24.08.2004, 10:48:26)

Re(22): Excel Formel - Probiers mit vba (Penguin am 24.08.2004, 18:25:37)

Re(23): Excel Formel - Probiers mit vba (Sputum am 25.08.2004, 07:41:56)

Re(24): Excel Formel - Probiers mit vba (Penguin am 25.08.2004, 12:32:49)

Re(25): Excel Formel - Probiers mit vba (Sputum am 25.08.2004, 12:40:37)

Re(26): Excel Formel - Probiers mit vba (Penguin am 25.08.2004, 13:02:26)

Re(7): Excel Formel (Strahli am 29.07.2004, 09:53:51)

Re: Excel Formel (Paulas_Papa am 29.07.2004, 13:05:23)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung