Excel Formel

Re(26): Excel Formel - Probiers mit vba

Penguin — Wed, 25 Aug 2004 11:02:26 GMT

na, warum

Re(25): Excel Formel - Probiers mit vba

Sputum — Wed, 25 Aug 2004 10:40:37 GMT

du bist ein wahnsinn, aber das weisst eh, oder!

Re(24): Excel Formel - Probiers mit vba

Penguin — Wed, 25 Aug 2004 10:32:49 GMT

ja sorry in der eile vertippt:

so ghoerts:

strtarget = strtarget & "," & wks.Cells(rngCell.Row, 1).Text

das & vor "," hat gefehlt

Re(23): Excel Formel - Probiers mit vba

Sputum — Wed, 25 Aug 2004 05:41:56 GMT

ich will alle zahlen in einer msgbox!

bei dieser zeile hängt er sich auf:

strtarget = strtarget "," & wks.Cells(rngCell.Row, 1).Text

syntaxfehler!

Re(22): Excel Formel - Probiers mit vba

Penguin — Tue, 24 Aug 2004 16:25:37 GMT

jeden einzeln, oder alle zusammen?

jeden einzeln:
statt

If Len(rngTarget.Text) <> 0 Then
         rngTarget.Value = rngTarget.Text & ", " & wks.Cells(rngCell.Row, 1).Text
     Else
         rngTarget.Value = "" & wks.Cells(rngCell.Row, 1).Text
    End If

schreibst

If Len(rngTarget.Text) <> 0 Then
   msgbox rngcell.row & " :" & wks.Cells(rngCell.Row, 1).Text
End If

alle zusammen:
statt:
If Len(rngTarget.Text) <> 0 Then
         rngTarget.Value = rngTarget.Text & ", " & wks.Cells(rngCell.Row, 1).Text
     Else
         rngTarget.Value = "" & wks.Cells(rngCell.Row, 1).Text
    End If

schreibst:

If Len(strtarget) <> 0 Then
         strtarget = strtarget ", " & wks.Cells(rngCell.Row, 1).Text
     Else
        strtarget = "" & wks.Cells(rngCell.Row, 1).Text
End If

am ende dann:

msgbox strtarget

hoffe das hilft dir!

Re(21): Excel Formel - Probiers mit vba

Sputum — Tue, 24 Aug 2004 08:48:26 GMT

du frage:

kann man die resultate auch in eine msgbox andrucken, ich habs mal wieder net geschafft:

Sub freieuser()

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")

Set rngTarget = ActiveSheet.Range("frei")
rngTarget.Value = ""

'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 = "unbenutzt" Then
     If Len(rngTarget.Text) <> 0 Then
         rngTarget.Value = rngTarget.Text & ", " & wks.Cells(rngCell.Row, 1).Text
     Else
         rngTarget.Value = "" & wks.Cells(rngCell.Row, 1).Text
    End If
  End If
Next rngCell

End Sub

Re(20): Excel Formel - Probiers mit vba

Penguin — Mon, 02 Aug 2004 16:28:37 GMT

ach passt schon, sitze derzeit absolut beschaeftigungslos in einer ueberbezahlten hackn herum und man will mir keine arbeit geben

Re(19): Excel Formel - Probiers mit vba

Sputum — Mon, 02 Aug 2004 15:43:27 GMT

Du hast das Problem erkannt, ich werde das so probieren!

ICH BIN SUPER ZUFRIEDEN!

und schulde dir was, vielleicht ergibt sich ja mal was....

Re(18): Excel Formel - Probiers mit vba

Penguin — Mon, 02 Aug 2004 14:58:06 GMT

kann an mehreren Dingen liegen:

am wahrscheinlichsten: du hast eine verbundene Zelle angegeben (der Knopf wo du Felder neben/untereinander verbinden kannst).

Die schafft er mit dem clearcontents irgendwie nicht.

ABhilfe ist zb:

rngtarget.value=""

(also nicht loeschen sondern mit nichts ueberschreiben)

Hoffe aber es passt wenigstens der Rest und du bist zufrieden

Re(17): Excel Formel - Probiers mit vba

Sputum — Mon, 02 Aug 2004 05:37:28 GMT

die funktion

rngtarget.clearcontents

löst den debugger aus, sonst geht alles super....

Re(16): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 13:10:25 GMT

du aenderst folgende zeile:

Set rngTarget = ActiveSheet.Cells(lngRow, intColumn)

in folgende

Set rngTarget = ActiveSheet.range("a1664")

und fuegst folgende zeile gleich danach ein:

rngtarget.clearcontents

(Die Funktion getRange brauchst du dann eigentlich nicht)

Alternative (du laesst die Wahl offen, es soll nur standarmaessig A1664 sein):

Du ersetzt folgende Zeile:

Set rng = Application.InputBox(strText, Type:=8)

mit folgender

Set rng = Application.InputBox(strText, Default:="A1664", Type:=8)

und fuest trotzdem folgende Zeile:
rngtarget.clearcontents
and selbiger STelle wie zuvor beschrieben ein.

Re(15): Excel Formel - Probiers mit vba

Sputum — Fri, 30 Jul 2004 12:58:35 GMT

SUPER!

Könntest mir das ganze ein bisserl umwandeln:

Er soll es automatisch in die Zelle: A1664 anzeigen und dieses Feld zuvor löschen!

hier der komplette Code:

Sub freieuser()

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 = ActiveSheet.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 = "unbenutzt" Then
     If Len(rngTarget.Text) <> 0 Then
         rngTarget.Value = rngTarget.Text & "," & wks.Cells(rngCell.Row, 1).Text
     Else
         rngTarget.Value = "Unbenutzte Bediener: " & wks.Cells(rngCell.Row, 1).Text
    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:
End If
getRange = rng.Row & "," & rng.Column
End Function

Re(14): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 12:40:52 GMT

und diese auch:

rngTarget.Value = "Zahlen die frei sind: " & rngcell.Row

mit dieser:

rngTarget.Value = "Zahlen die frei sind: " & wks.Cells(rngCell.Row, 1).Text

Re(13): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 12:38:39 GMT

hab grad gesehen du willst nicht die Zeile sondern die Nummer aus Spalte A:

ersetze die folgende Zeile:

rngTarget.Value = rngTarget.Text & "," & rngCell.Row

mit folgender:

rngTarget.Value = rngTarget.Text & "," & wks.cells(rngcell.row,1).text

Re(13): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 12:37:02 GMT

hast die korrektur beruecksichtigt?

Es schreibt dir in die Zelle die du auswaehlst alle Zeilen die "frei" sind.

Re(12): Excel Formel - Probiers mit vba

Sputum — Fri, 30 Jul 2004 11:44:12 GMT

oka yhab das jetzt eingefügt, es kommt die erste msg box , ich wähle eine zelle aus drück auf okay und das war es dann, was soll das ding machen?

Re(12): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 11:39:23 GMT

shit ein Fehler:

Diese Zeile ersetzen:

Set rngTarget = wks.Cells(lngRow, intColumn)

mit dieser

Set rngTarget = activesheet.Cells(lngRow, intColumn)

(man sollte nicht aus dem Kopf heraus programmieren...)

Re(11): Excel Formel - Probiers mit vba

Penguin — Fri, 30 Jul 2004 11:37:01 GMT

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

Re(10): Excel Formel - Probiers mit vba

Sputum — Fri, 30 Jul 2004 05:56:18 GMT

he super sowas in der art ist ja schon geil....

folgende mods sind ,machbar?

- die Liste soll auf einem anderen Arbeitsblatt sein und nicht markiert werden müssen, dafür kann ich dir sagen dass es die b spalte auf dem arbeitsblatt bediener ist .....

GEHT DAS?

Re(9): Excel Formel - Probiers mit vba

neu_hier — Thu, 29 Jul 2004 23:06:55 GMT

Hallo sputum,

probiers doch mal mit ein paar Zeilen vba-code:

Erstelle unter Extras > Makros... mit "Makro aufzeichnen" ein neues,
leeres Makro indem du gleich nach Aufzeichnungsstart auf "Aufzeichnung
beenden" klickst.
Dann gehst du mit Alt+F8 in deine Makrosammlung und klick auf
den Button "Bearbeiten" um das Makro zu ergänzen.

Füge über "End Sub" folgenden 7 Zeilen ein:

' Hinweis: Die Spalte mit den Namen muss markiert werden und die
'    Zahlen-Spalte muss sich direkt links davon befinden.
'    Das Ergebnis mit allen freien Zahlen wird in die Zelle A1 geschrieben.

for each cell in Selection
    if cell.value = "frei" then Cells(1, 1).value = _
    Cells(1, 1).value & Cells(cell.row, cell.column - 1).value & ", "
next cell

Nachdem du die Datei abgespeichert hast kannst du das Makro mit
Alt+F8 und einem Doppelklick in der Makroliste ausführen.

(ich hoffe es funktioniert, hab nämlich grad kein Excel zur Hand)

Re(6): Excel Formel

Penguin — Thu, 29 Jul 2004 13:19:30 GMT

Daten markieren (alle)
dann Extras/Filter/Autofilter

in der richtigen Spalte dann "frei" auswaehlen.

Hoffe ich hab dich richtig verstanden

Re: Excel Formel

Paulas_Papa — Thu, 29 Jul 2004 11:05:23 GMT

Du markierst beide Spalten, wählst im Menü: Data->Filter->Autofilter (sorry, hab engisches Excel). Dann setzt du den Filter ("Pfeil nach unten-Button in Spalte B) auf "frei" und hast als Ergebnis die Liste aller freien. Die kannst dann markieren und überall hinpasetn, wo du willst.

Re(7): Excel Formel

Strahli — Thu, 29 Jul 2004 07:53:51 GMT

guck dir das mal an:

http://forum.geizhals.at/files/61744/beispiel.jpg

Re(8): Excel Formel

Sputum — Thu, 29 Jul 2004 07:51:13 GMT

Es checkt irgendwie keiner, ich werde es nochmals versuchen!

Ich habe eine ziemlich grosse Liste (ca. 6000 Zeilen)

In dieser Liste werden Nummern Namen zugeordnet.

Jetzt gibt es aber auch Nummern die frei sind, irgendwo mittendrin.

Mit einem Autofilter könnte ich die Liste jetzt natürlich nach frei sortieren, hätte aber dann immer noch mehrere Seiten...

Deswegen will ich jetzt eine kleine Liste wo einfach alle freien nebeneinander angezeigt werden (Freie Zahlen: 1,2,3,4,5,6,7,....)

Ich hoffe das erklärt das Problem ein wenig genauer

Re(7): Excel Formel

max789 — Thu, 29 Jul 2004 07:45:46 GMT

hast du schonmal dran gedacht einfach einen autofilter zu machen und dann nach frei filtern? irgendwie check ich überhaupt net was du willst

Re(6): Excel Formel

Sputum — Thu, 29 Jul 2004 07:01:32 GMT

ist das leicht zu realisieren für einen dau?

Re(5): Excel Formel

Strahli — Thu, 29 Jul 2004 06:57:10 GMT

anders wirst du es mit den exel-funktionen nicht schaffen, oder du machst eine MSQeuery abfrage

Re(4): Excel Formel

Sputum — Thu, 29 Jul 2004 06:52:52 GMT

aber überleg mal, da kann ich doch gleich die originale Liste nach "frei" sortieren, das ist doch keine erleichterung sondern lediglich eine 2. Liste....

Re(3): Excel Formel

max789 — Thu, 29 Jul 2004 06:47:04 GMT

=WENN($B1="frei";A1)
Das in der 1er Zeile hinschreiben und am rechten unteren rand der Zelle bei dem kleinem schwarzen viereck runterziehen. wennst das gemacht hast, steht bei allen die frei sind frei und bei den andern nichts. wennst es sortieren willst: Daten -> Sortieren...

Re(2): Excel Formel

Sputum — Thu, 29 Jul 2004 06:31:13 GMT

ich möchte eine liste der freien, nicht die gleiche Liste mit frei und nicht frei...

Es soll auf einen Blick ersichtlich sein, welche Zellen frei sind, die anderen interessierne mich nicht...

Re(5): Excel Formel

Sputum — Thu, 29 Jul 2004 06:30:09 GMT

Das Ergebnis ist das gleiche: Ich habe statt 600 Zeilen 12000 Zeilen.... Ich möchte halt lediglich die Zellen wo "frei" steht und das möglichst untereinander......

Re(4): Excel Formel

Penguin — Wed, 28 Jul 2004 15:52:57 GMT

also ich weiss ja nicht wie du das machst, aber:
Schreibe die Formel in die erste Zelle
gehe in die erste zelle in der was steht in der Spalte in der durchgehend Werte stehen.
druecke gleichzeitig: "shift"+"ende"+pfeil nach oben --> voila, der ganze bereich ist markiert, dann drueckst du gleichzeitig: "strg"+"u" und die Formel wird kopiert
(Bitte das ganze natuerlich ohne die ganzen "")

Re: Excel Formel

MJFox — Wed, 28 Jul 2004 15:22:08 GMT

=WENN(B1="frei";A1;"nicht frei")

wenn Du das einmal einträgst und dann mit der Maus runterziehst, kopiert er das und ändert die Formel entsprechend für jede Zeile

Re(3): Excel Formel

Sputum — Wed, 28 Jul 2004 14:45:53 GMT

das ist ja schon ganz gut, aber:

Ich habe 6000 Zeilen, wenn ich diese Methode verwende muss ich das 6000 mal kopieren....

Re(3): Excel Formel

The Brain — Wed, 28 Jul 2004 10:33:55 GMT

ja genau so in der richtung, versuch das mal sputum ob das so funktioniert?

Re(2): Excel Formel

max789 — Wed, 28 Jul 2004 09:55:12 GMT

=WENN(B1="frei";A1;WENN(B1="Markus Maier";A2))

usw.

meinst du das?

Re: Excel Formel

The Brain — Wed, 28 Jul 2004 09:20:41 GMT

hi,

ich sag mal programmiertechnisch müsste es funken, nur ich glaub in excel machst das mit visual basic und da kenn ich zu wenig aus. aber ich sag mal es sollte mit einer einfachen if abfrage d.h. wenn in der zelle B frei steht dann soll einfach der inhalt der Zelle A irgendwo gespeichert bzw. hingeschrieben werden.

mal schauen ob ein paar spezialisten hier sind wie es in vb genau funkt.

Excel Formel

Sputum — Wed, 28 Jul 2004 09:04:52 GMT

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!