Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo fehle06,
leider funktioniert zählenwenn nicht wie du es brauchst in zwei Spalten. Schöne Lösung habe ich auch keine aber mit 4 Hilfsspalten erreichst du, wie in der hochgeladenen Datei ersichtlich, das gewünschte Ergebnis
Beste Grüße
Pepo

Ich habe den Fehler selbst gefunden.
statt ThisWorkbook muss es heißen ActiveWorkbook

Trotzden Danke

Pepo

Hallo Karin,
vielen Damk, funktioniert bestens.
Was tät ich ohne dich?

Beste Grüße
Pepo

Noch eine Idee:
Format der Zellen für die Abwesenheitsarten:  "gesperrt" und "ausgeblendet" und Schriftfarbe "weiß" (oder ;; und Schriftart "Marlett"
Dann das Blatt mit Makro über Passwort schützen

gruß Pepo

Hallo Christiane,
mit einem dynamischen DropDown kann ich leider auch nicht dienen, aber vielleicht kannst du mit einem System wie es zB. im Outlook bei der Übernahme von Namen in eine Gruppe fuktioniert, auch leben.
In der hochgeladenen Datei sind in Spalte A die Mitglieder und in Spalte B die jeweilige Gruppe.
In Spalte H entsteht die Theamliste
Du sortierst die Mitgliederliste beliebig, markierst einen zu übernehmenden Namen und drückst den Button "Übernehmen". Damit wird dieser Name in die Theamliste geschrieben.
Die Theamliste soll ober der Mitgliederliste angeordnet sein, da ja sonst beim Sortieren derselben auch die Theamliste entsprechend ausgeblendet wird.
Beste Grüße
Pepo

Hallo Viddo,

nur einmal zu meinem Verständnis deines Problems
- In den Arbeitsmappe "Gyn, HNO,usw" stehen jeweils in Tabelle1 in der Spalte A alle in diesem  Bereich möglichen OP-Arten und in Spalte B (oder weitere)  die dafür erforderlichen Instrumente
- In der Arbeitsmappe 1 stehen in der Spalte A der Tabelle1 ALLE an diesem Tag durchzuführenden Operationen
- Um einen funktionierenden Sverweis anwenden zu können ist wahrscheinlich die Einführung einer Kennnummer pro Operationsart (dokumentiert in den Mappen "Gyn,usw.) notwendig. Ist das möglich?

Beste Grüße
Pepo

Hallo Banza,

bei so vielen ist es natürlich sinnvoller es mit einem sverweis zu machen.
Ich habe Dir ein Muster hochgeladen

Beste Grüße
Pepo

Hallo Hziemer,

vielleicht nicht die eleganteste Lösung, aber sicher die einfachste:
- Import der txt-Datei in eine Excel-Hilfstabelle
- Verknüpfung dieser Tabelle mit eine zweiten und den entsprechenden "="-Funktionen

Beste Grüße
Pepo

Hallo Cayenne,
ich habe nur "gegoogelt" und folgende mögliche Lösungen gefunden:

=Wenn(Istfehler(SVERWEIS($C$1;Artikel1!$A:$K;5;0));SVERWEIS($C$1;Artikel2!$A:$K;5;0);SVERWEIS($C$1; Artikel1!$A:$K;5;0))   

http://www.excelformeln.de/formeln.html?welcher=233

Gruß
Pepo      

Hallo PattePansen,
versuch es mit dem sverweis zB.

Tabelle A, Zelle A1(Raumnummer)
Tabelle B, Zellen A1 - A12 (A1 = Raumnummer)
In Tabelle A, Zelle A2 die Formel

=sverweis(A1;Tabelle B!A1:J50;2;0)
Mit dem Zweier erhältst du den Wert aus der Zelle B1

Gruß Pepo

Hallo Max,

da ich nur 2007 habe weiß ich nicht ob es im 2010 möglich ist die Arbeitsmappe ohne Gitternetzlinien zu zeigen.

Office Button-Excel Optionen-Erweitert-Optionen für Arbeitsmappe-Gitternetzlinien einblenden

Gruß
Pepo

Hallo Kater,

war jetzt einige Zeit außer Gefecht, daher die lange Antwortzeit. Nachstehen das Makro mit variablem Bereich.
Es funktioniert aber nur, wenn die Aufgabenummer in einer eigenen Spalte steht.
Sollte das nicht möglich sein musst Du entweder in der Orginaldatei die Spalte A einfügen und die Formel
                  =WENN(ISTFEHLER(WERT(B1));"";B1)
in alle betroffenen Zellen einfügen oder die komplette Datei in eine Zwischentabelle übertragen (Copy) und dort das dann erledigen.
Sicher gibt es einfachere Möglichkeiten, aber wie bereits am Anfang erwähnt bin ich auch nicht der große "Zampano"

Gruß
Peter

Sub Kopieren()

    Dim ZahlSuchen As Variant
    Dim ZahlDavor As Variant
    ZahlSuchen = Range("$H$20").Value
    ZahlDavor = Range("$H$20").Value - 1
   
    Range("K3:Q20").Select   ' Die max. mögliche Anzahl an Zeilen
    Selection.ClearContents
    Cells.Find(What:=ZahlDavor, After:=ActiveCell).Activate
    Range(ActiveCell.Offset(1, 6), ActiveCell.Offset(1, 0).End(xlDown)).Select
    Selection.Copy
    Range("K3").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
   
End Sub

Hallo Kater,
nimm nachstendes Makro, dabei müssen die Nummern auch nicht fortlaufend sein
Gruß
Pepo

Sub Makro1()
 
   
Application.ScreenUpdating = False

Dim Zelle As Range
Dim Wert As Single
Range("A1:A22").Select
Wert = Range("H20").Value
For Each Zelle In Selection
If Zelle.Value = Wert Then Zelle.Select
ActiveCell.Select
Next Zelle
ActiveCell.Offset(-6, 0).Range("A1:A7").Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
   
   
   
End Sub

Hallo,
habe die letzten Informationen eingesetzt, aber leider....es funktioniert nicht.

Was mache ich nur falsch ?

Gruß
Peter

Hallo Freunde,
ich habe wieder einmal ein Problem:
In der hochgeladenen Musterdatei funktionieren die Makros entsprechend der Beschreibung, aber leider nur bis zur Markierung der Zellen. Das noch gewünschte Löschen brungt der Debrugger. Wenn ich die Zeile "Selection.ClearContents" ausblende funktioniert alles ?!

Bitte um Hilfe !!!

Lieb Grüße

Peter