Office: Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Bojan · 25. April 2007

Hallo Andreas,

kannst du diese Funktion posten, da ich diese für ein anderes Sheet benötige.

Gruß und Dank

Bojan*Smilie

mikelsun · 25. April 2007

\@ lanz-andy,

hi, unter extras / optionen / ansicht / fensteroptionen / nullwerte kannst du alle nullwerte automatisch ausblenden!!

vielleicht hilft es dir ja.

gruß

mikelsun

Udo W. · 25. April 2007

Moin zusammen,

eine kurze Frage:

Wie muss ich diesen Code ab ändern, damit er sich nur auf eine Spalte aber auf 365 Zeilen bezieht?

Code:

Sub schichten()
' trägt Schichtkürzel in einen Kalender ein
' geschrieben von Klaus-Dieter Oppermann
' letzte Änderung 08.12.2006 ' andere Schichtfolge
Dim sk As Variant ' Schichtkürzel
Dim s As Integer ' Schleifenzähler für Tabellenzeilen
Dim we As Integer ' Zuweisungsschlüssels
Dim sp As Integer ' Schleifenzähler für Spalten
Dim arr(50, 0) ' Array Kalendereintrag
Application.ScreenUpdating = False ' Bildschirmaktualisierung abschalten
' Kürzel in Feldwvariable einlesen
sk = Array("/", "/", "S", "S", "S", "S", "S", "/", "/", "F" _
, "F", "F", "F", "F", "/", "/", "S", "S", "S", "S", "S") ' Schichtkürzel einlesen
' Kürzel in Kalender schreiben
sp = 22 ' Schleife für Spaltenzuweisung
For s = 6 To Cells(Rows.count).End(xlUp).Row ' Schleife für Einträge in Zeilen
we = CDate(Cells(sp + 1)) Mod 21 ' Feldwert für Variable berechnen
If we < 0 Then we = 0 ' wenn Wert kleiner als 0 dann 0 setzen
arr(s, 0) = "" ' Array-Felder leeren
arr(sp, 0) = sk(we) ' Neue Inhalte in Array einlesen
Next s ' Schleifenzähler (Zeile) plus 1
Range(Cells(1, sp), Cells(Cells(Rows.count, sp + 0) _
.End(xlUp).Row, sp)) = arr ' Array in Kalender schreiben
' Schleifenzähler (Spalte) plus 1
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Udo

Bojan · 25. April 2007

Hallo,

danke für den Tipp aber das habe ich schon versucht ich brauche es für einene Mittelwertberechnung.

D.h.

Spalte A, B, C und Mittelwert steht in Spallte D

wenn ich die Range A:C lege zählt er mir 3 Spalten für den Mittelwert,

ich will aber dass für den Mittelwert nur Werte genommen werden wo auch Zahlen größer Null (Zahl) in Betracht gezogen werden. Ich denke es muss eine kaskadierte Formel gemacht werden erste Schicht Mittelwert und dann in der Mittelwertformelt eine Wenn 0 dann " " ; Mittelwert, aber ich weiss nicht wie ich diese Formel bauen soll. Hast du eine Idee hierzu?

Gruß

Bojan*rolleyes.gif*

Udo W. · 30. April 2007

Hallo zusammen,

ich möchte gerne, dass in der Spalte "W" die Einträge G1, G2 etc. die gleiche Formatierung annehmen, wie sie im Script beschrieben ist.

Code:

Case "G1" 'WE Gruppe
IntColor = 40
' weiß
FontColor = 0
' schwarz
ZVal = UCase(RaZelle)
Case "G2" 'WE Gruppe
IntColor = 35
' weiß
FontColor = 0
' schwarz
ZVal = UCase(RaZelle)
Case "G3" 'WE Gruppe
IntColor = 38
' weiß
FontColor = 1
' schwarz
ZVal = UCase(RaZelle)
Case "G4" 'WE Gruppe
IntColor = 9
' weiß
FontColor = 2
' schwarz
ZVal = UCase(RaZelle)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Trage ich G1, G2 etc. in die Spalten unter den Namen ein, nehmen sie auch die entsprechende Formatierung an.

Hat vielleicht jemand von euch noch eine Idee?

Gruß
Udo

Udo W. · 3. Mai 2007

Hallo zusammen,

im UrlPlaner gibt es in der Spalte "U4" den Namen "Renke". Wenn ich diesen Namen anklicke, öffnet sich auch schön brav die Userform mit Namen und Datum.
Klicke ich jetzt in die Spalte "U6" bleibt das aktuelle Datum in den Feldern stehen. Versuche ich nun z.B. Urlaub einzutragen geschieht nichts!
Auf alle anderen relevanten Spalten reagiert die Userform entsprechend - nur nicht in die unter dem Namen "Renke"

Ich hab´ den Code schon einige Male verändert, leider ohne Ergebnis.

Bitte, bitte...ich brauch´ irgendeine Lösung. *rolleyes.gif*

Gruß
Udo

Udo W. · 3. Mai 2007

Boh ey, 1035 Hits und keiner hat ne´ Lösung für mein Problem? *entsetzt

Udo W. · 18. Mai 2007

Hallöle,

hat jemand eine Idee, wie ich den wirksamen Bereich vergrößern kann.

Mit diesem Code:
Code:

Private Function Eintragen(WS As Worksheet, Start As Date, Ende As Date, Mitarb As Long, fText As String)
Dim count As Long, te
Dim DatumSpalte, Kalender As Range
Mitarb = Mitarb - 5
Set Kalender = WS.[rngKalender].Cells(1, 1).Offset(-1, -1)
DatumSpalte = WS.[rngKalender].Offset(0, -3).Resize(WS.[rngKalender].Rows.count, 3)
count = 1
Application.ScreenUpdating = False
Do
If IsDate(DatumSpalte(count, 3)) Then
If DatumSpalte(count, 3) >= Start And _
Application.WorksheetFunction.Weekday(DatumSpalte(count, 3)) 7 And _
Application.WorksheetFunction.Weekday(DatumSpalte(count, 3)) 1 And _
DatumSpalte(count, 1) = "" Then
Kalender.Offset(count, Mitarb) = fText
End If
End If
count = count + 1
Loop While (DatumSpalte(count, 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen

Userform beim Klick auf Zelle öffen und Wert der Zelle übernehmen - Similar Threads - Userform Klick Zelle

einfache suche via userform wie im browser

Monats Kalender über Userform

UserForm bei Klick auf Zelle öffnen

Button in UserForm automatisch klicken

Bei klick in Bereich Userform öffnen und mit Schaltfläche Werte in Zellen übertragen

UserForm Popup per Klick schliessen (nicht X!)

Excel 2010 - Klick auf Zelle öffnet UserForm