Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 551 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 548, 549, 550, 551, 552, 553, 554 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Katastrophe!!! Curser flippt aus 
Phelan XLPH

Antworten: 4
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 11:32   Titel: AW: Katastrophe!!! Curser flippt aus Version: Office 2007
Hier die Version die die Formel:
=ZUFALLSBEREICH() nicht haben.
  Thema: Alphabetische Reihenfolge & Umkehrung 
Phelan XLPH

Antworten: 15
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 11:14   Titel: AW: Alphabetische Reihenfolge & Umkehrung Version: Office XP (2002)
hier mal ein Bsp für eine Userform:

du benötigst 1 ComboBox und 2 Buttons

Private Sub CommandButton1_Click()
With ComboBox1
.List = sortL(.List)
End With
End Sub

Private Sub CommandButton2_Click()
With ComboBox1
.List = Unsortieren(.List)
End With
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.List = Tabelle2.Range("A1:A20").Value
End With
End Sub

'***********************************************************************

Private Function Unsortieren(arr As Variant) As Variant
Dim h As Variant
Dim i As Long, pos As Long

'Tausch
For i = LBound(arr) To UBound(arr)
Randomize
pos = Int(UBound(arr) * Rnd + LBound(arr))
h = arr(i, 0)
arr(i, 0) = arr(pos, 0)
arr(pos, 0) = h
Next
Unsortieren = arr
End Function

Private Function sortL ...
  Thema: Alphabetische Reihenfolge & Umkehrung 
Phelan XLPH

Antworten: 15
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 10:34   Titel: AW: Alphabetische Reihenfolge & Umkehrung Version: Office XP (2002)
Wo willst du denn Suchen? im TabellenBlatt?
  Thema: Spaltenabschnitte als Grafik darstellen 
Phelan XLPH

Antworten: 8
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 10:31   Titel: AW: Spaltenabschnitte als Grafik darstellen Version: Office 2003
was für den kurzen Snack:

Sub DiaXY()
Dim wks As Worksheet
Dim wksZiel As Worksheet
Dim rngBereich As Range
Dim ch As ChartObject

Set wksZiel = Worksheets.Add(Sheets(1))
wksZiel.Name = "Dia"

For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Dia", "Tabelle2" 'ggf. erweitern; "Dia" nicht entfernen ; Tabellen die nicht erfasst werden sollen
Case Else
wks.Range("B3:B8,I3:I8").Copy _
wksZiel.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Select
Next

With wksZiel.Range("A2:A6")
.Formula = "=""x""&ROW()-1"
.Value = .Value
End With

Set ch = wksZiel.ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard Source:=wksZiel.Range("A1").CurrentRegion, _
gallery:=xlColumnClust ...
  Thema: Alphabetische Reihenfolge & Umkehrung 
Phelan XLPH

Antworten: 15
Aufrufe: 1027

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 09:51   Titel: AW: Alphabetische Reihenfolge & Umkehrung Version: Office XP (2002)
sowas?

'Mit Überschrift
Sub AufsteigendSortieren()
With Range("A1").CurrentRegion
.Sort .Cells(1), , .Cells(2), , , .Cells(3), , xlYes
End With
End Sub
'Mit Überschrift
Sub Unsortiern()
Dim rng As Range, arr As Variant
Dim arrH As Variant, k As Integer
Dim i As Long, pos As Long

'Überschrift ausnehmen
With Range("A1").CurrentRegion
Set rng = .Offset(1).Resize(.Rows.Count - 1)
End With

'Einlesen
arr = rng
'Tausch
ReDim arrH(1 To UBound(arr, 2))
For i = 1 To UBound(arr)
Randomize
pos = Int(UBound(arr) * Rnd + 1)
For k = 1 To UBound(arr, 2)
arrH(k) = arr(i, k)
Next
For k = 1 To UBound(arr, 2)
arr(i, k) = arr(pos, k)
Next
For k = 1 To UBound(arr, 2)
arr(pos, k) = arrH(k)
Next
Next
'Ausle ...
  Thema: Katastrophe!!! Curser flippt aus 
Phelan XLPH

Antworten: 4
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 09:26   Titel: AW: Katastrophe!!! Curser flippt aus Version: Office 2007
NEO lässt nochmal grüßen in Matrix-Style Very Happy Very Happy Very Happy
  Thema: Über einen CommandButton mehere andere Buttons aufrufen 
Phelan XLPH

Antworten: 3
Aufrufe: 540

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 08:20   Titel: AW: Über einen CommandButton mehere andere Buttons aufrufen Version: Office 2003
Das ginge so:

Private Sub CommandButton1_Click()
MsgBox CommandButton1.Name
End Sub
Private Sub CommandButton2_Click()
MsgBox CommandButton2.Name
End Sub
Private Sub CommandButton3_Click()
MsgBox CommandButton3.Name
End Sub
Private Sub CommandButton4_Click()
MsgBox CommandButton4.Name
End Sub

Private Sub CommandButton5_Click()
CommandButton1 = True
CommandButton2 = True
CommandButton3 = True
CommandButton4 = True
End Sub

Aber besser wäre es so (Auslagern in Unterprozeduren):
Private Sub CommandButton1_Click()
Ausgabe1 CommandButton1.Name
End Sub
Private Sub CommandButton2_Click()
Ausgabe2 CommandButton2.Name
End Sub
Private Sub CommandButton3_Click()
Ausgabe3 CommandButton3.Name
End Sub
Private Sub CommandButton4_Click()
Ausgabe4 CommandButton4.Name
End Sub

Private Sub CommandButton5_Click()
Ausgabe1 CommandButton1 ...
  Thema: mehrere Spalten markieren Columns 4-8 -Zahlenwert benötigt 
Phelan XLPH

Antworten: 3
Aufrufe: 4099

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Aug 2009, 08:09   Titel: AW: mehrere Spalten markieren Columns 4-8 -Zahlenwert benöti Version: Office 2003
oder so:
Set rngBereich = Range("G1:J1").EntireColumn
  Thema: Macro automatisch starten ? 
Phelan XLPH

Antworten: 1
Aufrufe: 251

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 21:50   Titel: AW: Macro automatisch starten ? Version: Office 2003
DOPPELTER THREAD

hier gehts weiter:
http://www.office-loesung.de/ftopic332899_0_0_asc.php
  Thema: Macro automatisch starten ? 
Phelan XLPH

Antworten: 1
Aufrufe: 248

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 21:48   Titel: AW: Macro automatisch starten ? Version: Office 2003
???? versuchs mal mit learning by doing Very Happy

ersetze das:
MsgBox "Ausdruck wird gestartet "
durch das:
Drucken 'Makronamen Drucken
  Thema: Automatische Eingabe für einen Teil deaktivieren? 
Phelan XLPH

Antworten: 8
Aufrufe: 225

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 21:46   Titel: AW: Automatische Eingabe für einen Teil deaktivieren? Version: Office 2007
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'On Error Resume Next
Select Case Sh
Case "LetztesBlatt", "2.LetztesBlatt", "3.LetztesBlatt", "4.LetztesBlatt" 'BlattNamen anpassen
Case Else
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D6:I36"), Target) Is Nothing Then Exit Sub
Select Case Target.Value
Case 1: Target.Value = "XXXX"
Case 2: Target.Value = "XXXY"
Case 3: Target.Value = "XXXZ"
Case 4: Target.Value = "AAAA"
Case 5: Target.Value = "BBBB"
Case 6: Target.Value = "CCCC"
Case "u": Target.Value = "U R L A U B"
Case "a": Target.Value = "STUNDENABBAU"
Case "f": Target. ...
  Thema: Dropdown liste, die Autofilter in anderem Blatt steuert 
Phelan XLPH

Antworten: 8
Aufrufe: 1900

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 19:12   Titel: AW: Dropdown liste, die Autofilter in anderem Blatt steuert Version: Office 2003
Was ist das für ein DropDown?

-Axtivex-Steuerelement
-Formular-steuerelement
-Gültigkeits-DropDown


Welches der dreien ist es?
  Thema: Katastrophe!!! Curser flippt aus 
Phelan XLPH

Antworten: 4
Aufrufe: 392

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 17:57   Titel: Katastrophe!!! Curser flippt aus Version: Office 2007
Hallo,

Hilfe mein Curser flippt aus sobald ich Start drücke. Shock Shock Shock
  Thema: Artikel suchen und werte eintragen 
Phelan XLPH

Antworten: 6
Aufrufe: 529

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 17:41   Titel: AW: Artikel suchen und werte eintragen Version: Office 97
1.Bereich markieren
2.Formel hineinkopieren
3.Abschluss mit STRG+ENTER

=WENN(ODER(J4="x";L4="x");SUMME(WVERWEIS(F4;Preise!$A$1:$L$6;2);Preise!$M$2);WVERWEIS(F4;Preise!$A$1:$L$6;2))

"$" =Kennzeichnet Feste Bezüge
  Thema: Dropdown liste, die Autofilter in anderem Blatt steuert 
Phelan XLPH

Antworten: 8
Aufrufe: 1900

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Aug 2009, 17:31   Titel: AW: Dropdown liste, die Autofilter in anderem Blatt steuert Version: Office 2003
Bitte Schritt für Schritt erklären...obwohl Einstein..........
 
Seite 551 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 548, 549, 550, 551, 552, 553, 554 ... 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 Project