Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 90 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 87, 88, 89, 90, 91, 92, 93 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Summe bis zu einem Grenzwert bilden 
Phelan XLPH

Antworten: 4
Aufrufe: 103

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Dez 2012, 09:16   Titel: AW: Summe bis zu einem Grenzwert bilden Version: Office 2010
Sub x()
Dim sumGW As Double
Dim i As Long

Columns(2).Clear

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If sumGW + Cells(i, 1) > 80 Then
Cells(i - 1, 2) = sumGW
sumGW = 0
End If
sumGW = sumGW + Cells(i, 1)
Next
If sumGW <> 0 Then Cells(i - 1, 2) = sumGW
End Sub
  Thema: Schere, Stein, Papier 
Phelan XLPH

Antworten: 4
Aufrufe: 425

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Dez 2012, 17:46   Titel: AW: Schere, Stein, Papier Version: Office 2010
...ja meine ich auch, gut strukturiert.

Sorry konnte mich nicht zurückhalten Sad Very Happy

Private Sub Spiel()
Dim iZufallszahl As Integer
Dim iEingabe As Integer
Dim sMeldungUser As String
Dim sMeldungPC As String
Dim sMeldungErgebnis As String

Do

Do
iEingabe = Int(Val(Left(InputBox("Ihre Wahl bitte (Schere=1, Stein=2, Papier=3) :"), 1)))
If iEingabe = 0 Then Exit Sub
Loop While iEingabe < 1 Or iEingabe > 3

Select Case iEingabe
Case 1: sMeldungUser = "Schere"
Case 2: sMeldungUser = "Stein"
Case 3: sMeldungUser = "Papier"
End Select

Randomize Timer
iZufallszahl = Int((3 * Rnd) + 1)

Select Case iZufallszahl
Case 1: sMeldungPC = "Schere"
Case 2: sMeldungPC = "Stein"
Case 3: sMeldungPC = "Papier ...
  Thema: Anzahl von verschiedenen Werten ermitteln und sortieren 
Phelan XLPH

Antworten: 36
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Dez 2012, 16:51   Titel: AW: Anzahl von verschiedenen Werten ermitteln und sortieren Version: Office 2007
Was ist die .bd-Datei? ..eine lesbare Text-Datei?
  Thema: Funktion zum Würfeln einer Range 
Phelan XLPH

Antworten: 2
Aufrufe: 107

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2012, 18:45   Titel: AW: Funktion zum Würfeln einer Range Version: Office 2007
Function Wuerfeln(Source)

Dim arSource() As Variant
Dim arZahlen() As Variant
Dim lngZufall As Long
Dim lngMax As Long
Dim lngMin As Long
Dim I As Long
Dim v As Variant

For Each v In Source.Value
I = I + 1
ReDim Preserve arSource(1 To I)
arSource(I) = v
Next
ReDim arZahlen(1 To I)

lngMax = UBound(arSource)
lngMin = LBound(arSource)
Randomize

For I = lngMin To lngMax
lngZufall = Int(lngMax * Rnd() + 1) ' Zufallszahl zwischen 1 ... lngMax ziehen
' Das Arrayelement mit diesem Index nehmen
arZahlen(I) = arSource(lngZufall)
' Das letzte Element auf das gezogene Teil umkopieren
arSource(lngZufall) = arSource(lngMax)
' und nun noch die Obergrenze um 1 erniedrigen
lngMax = lngMax - 1
Next I
Wuerfeln = arZahlen

E ...
  Thema: Gruppierung 
Phelan XLPH

Antworten: 2
Aufrufe: 73

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2012, 17:53   Titel: AW: Gruppierung Version: Office 2010
Sub EinAusblenden()
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("D1:C85,E:I85")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Hat dieser Code ein Perönlichkeitsspaltung?
  Thema: Array, Datum, Min-Max 
Phelan XLPH

Antworten: 6
Aufrufe: 289

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2012, 17:44   Titel: AW: Array, Datum, Min-Max Version: Office 2007
2. dimension

Auszug aus der VBA-Hilfe:
Anmerkung Wenn Sie das Schlüsselwort Preserve mit einem dynamischen Datenfeld verwenden, können Sie nur die obere Grenze der letzten Dimension, aber nicht die Anzahl der Dimensionen ändern.
  Thema: Faden kreuz im Dienstplan 
Phelan XLPH

Antworten: 25
Aufrufe: 613

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2012, 13:39   Titel: AW: Faden kreuz im Dienstplan Version: Office 2010
@Gandalf...Füllfarbe 'enfernen'!

...dann kannst du auch in die Zelle klicken.
  Thema: Zellen im Worksheet als Fake-Checkboxen verwenden? 
Phelan XLPH

Antworten: 14
Aufrufe: 191

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2012, 13:02   Titel: AW: Zellen im Worksheet als Fake-Checkboxen verwenden? Version: Office 2007
Ja genau, einfach einen anderen Bereich bzw. Zelle selektieren, damit die
betreffende Zelle den Cursor verliert und somit wieder angewählt werden kann.

Hab mich für die Markierung der Zeile entschieden...das sieht dann nicht so
merkwürdig aus.

Code läuft auch unter XL 2003:
  Thema: Faden kreuz im Dienstplan 
Phelan XLPH

Antworten: 25
Aufrufe: 613

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2012, 08:33   Titel: AW: Faden kreuz im Dienstplan Version: Office 2010
@maninweb Crying or Very sad

hab XL2010 und Vista.

Bekomme folgende Fehlermeldung...
  Thema: Zellen im Worksheet als Fake-Checkboxen verwenden? 
Phelan XLPH

Antworten: 14
Aufrufe: 191

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2012, 08:15   Titel: AW: Zellen im Worksheet als Fake-Checkboxen verwenden? Version: Office 2007
Eine weitere Möglichkeit.
  Thema: ScrollBar - LargeChange-Eigenschaft 
Phelan XLPH

Antworten: 4
Aufrufe: 216

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2012, 06:31   Titel: AW: ScrollBar - LargeChange-Eigenschaft Version: Office 2007
...anders ausgedrückt: Das gibt es nicht!
  Thema: ScrollBar - LargeChange-Eigenschaft 
Phelan XLPH

Antworten: 4
Aufrufe: 216

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2012, 15:11   Titel: AW: ScrollBar - LargeChange-Eigenschaft Version: Office 2007
Wink
  Thema: Combobox in Zelle mittels VBA + Abhängige Befüllung 
Phelan XLPH

Antworten: 18
Aufrufe: 737

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2012, 14:49   Titel: AW: Combobox in Zelle mittels VBA + Abhängige Befüllung Version: Office 2010
lad mal ein Bespiel hoch
  Thema: Combobox in Zelle mittels VBA + Abhängige Befüllung 
Phelan XLPH

Antworten: 18
Aufrufe: 737

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2012, 13:29   Titel: AW: Combobox in Zelle mittels VBA + Abhängige Befüllung Version: Office 2010
ar = Tabelle2.Range("A1").CurrentRegion.Columns("A:H")

DataStore(ar(i, 1)) = DataStore(ar(i, 1)) & vbTab & ar(i, 8)
  Thema: Combobox in Zelle mittels VBA + Abhängige Befüllung 
Phelan XLPH

Antworten: 18
Aufrufe: 737

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2012, 11:46   Titel: AW: Combobox in Zelle mittels VBA + Abhängige Befüllung Version: Office 2010
Hallo,

hier nochmal mit Kommentaren.
 
Seite 90 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 87, 88, 89, 90, 91, 92, 93 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln