Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 519 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 516, 517, 518, 519, 520, 521, 522 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: String in Listbox schreiben 
Phelan XLPH

Antworten: 10
Aufrufe: 1793

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Nov 2009, 21:43   Titel: AW: String in Listbox schreiben Version: Office XP (2002)
Lass die Klammer weg.
  Thema: Einer von fünf Toggle Button soll Zelle färben 
Phelan XLPH

Antworten: 4
Aufrufe: 985

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Nov 2009, 21:14   Titel: AW: Einer von fünf Toggle Button soll Zelle färben Version: Office 2003
Das geht auch einfacher:

Hierzu benötigst du nur eine ComboBox:
Private Sub ComboBox1_GotFocus()
ComboBox1.List = Array("U", "S", "K", "G", "KU", "")
ComboBox1.Style = fmStyleDropDownList
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column > 5 And ActiveCell.Row > 5 Then
With ActiveCell
.Value = ComboBox1.Value
Select Case ComboBox1.Value
Case "U": .Interior.ColorIndex = 3
Case "S": .Interior.ColorIndex = 4
Case "K": .Interior.ColorIndex = 5
Case "G": .Interior.ColorIndex = 6
Case "KU": .Interior.ColorIndex = 7
Case Else: .Interior.ColorIndex = xlColorIndexNone
End Select
End With
End If

En ...
  Thema: Einer von fünf Toggle Button soll Zelle färben 
Phelan XLPH

Antworten: 4
Aufrufe: 985

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Nov 2009, 20:58   Titel: AW: Einer von fünf Toggle Button soll Zelle färben Version: Office 2003
Wieso machst du das über nen ToggleButtton und nicht über Optionbuttons
oder über eine Combobox?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column > 5 And Target.Row > 5 Then
If ToggleButton1 = True Then
With Target.Cells(1)
.Value = "U"
.Interior.ColorIndex = 3
End With
End If
If ToggleButton2 = True Then
With Target.Cells(1)
.Value = "S"
.Interior.ColorIndex = 4
End With
End If
If ToggleButton3 = True Then
With Target.Cells(1)
.Value = "K"
.Interior.ColorIndex = 5
End With
End If
If ToggleButton4 = True Then
With Target.Cells(1)
.Value = "G"
.Interior.ColorIndex = 6
...
  Thema: Makro abspecken bzw. optimieren 
Phelan XLPH

Antworten: 7
Aufrufe: 330

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Nov 2009, 18:19   Titel: AW: Makro abspecken bzw. optimieren Version: Office 2003
Hier ein Bsp.

Quelle Tabelle1 Bereich Sub Landkreise_löschen_wenn_vorhanden()
Dim wks As Worksheet
Dim sBlattLöschen As String
sBlattLöschen = ";" & Join(WorksheetFunction.Transpose(Worksheets("Tabelle1").Range("A1:A10")), " ;")

If Trim(Replace(sBlattLöschen, ";", "")) = "" Then Exit Sub

Application.DisplayAlerts = False

For Each wks In ActiveWorkbook.Worksheets
If InStr(sBlattLöschen, ";" & wks.Name & ";") > 0 Then wks.Delete
Next

Application.DisplayAlerts = True

End Sub
  Thema: Einzelne Zellen aktualisieren 
Phelan XLPH

Antworten: 7
Aufrufe: 3296

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 20:58   Titel: AW: Einzelne Zellen aktualisieren Version: Office 2007
Oder kann sein, dass der beim Umschalten auf Auto alles neu Berechnet?

Genau das tut er....

Machs doch so:
Berechnung auf MANUELL lassen und somit dann die einzelnen
Bereiche berechnen und wenn du alles Berechnen möchtest F9 drücken.
  Thema: Einzelne Zellen aktualisieren 
Phelan XLPH

Antworten: 7
Aufrufe: 3296

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 20:30   Titel: AW: Einzelne Zellen aktualisieren Version: Office 2007
Ja,genau.

Sobald du wieder auf Automatisch umstellst wird wieder alles berechnet.
  Thema: Makro zum Einblenden der Zeilen 
Phelan XLPH

Antworten: 4
Aufrufe: 354

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 20:13   Titel: AW: Makro zum Einblenden der Zeilen Version: Office XP (2002)
Kannst du mit dem Autofilter denn nicht mit dem Kriterium "enthält" filtern?

oder das da hier:
Sub Filtern()
Dim arr As Variant
Dim i As Long
Dim t As Double
Dim blnExist As Boolean
Dim vSuchWert As Variant


vSuchWert = InputBox("Bitte Suchwert eingeben:" & vbLf & vbLf & _
"[*]=Platzhalter für x-beliebiges Zeichen" & vbLf & _
"[?]=Platzhalter für einzelnes Zeichen" & vbLf & _
"[#]=Platzhalter für eine Ziffer")

If Trim(vSuchWert) = "" Then Exit Sub

t = Timer
arr = Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row)
For i = 1 To UBound(arr)
If arr(i, 1) Like vSuchWert Then
arr(i, 1) = "<<<"
blnExist = True
End If
Next

Rows.Hidden = False
If blnExist ...
  Thema: Makro zum Einblenden der Zeilen 
Phelan XLPH

Antworten: 4
Aufrufe: 354

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 18:22   Titel: AW: Makro zum Einblenden der Zeilen Version: Office XP (2002)
Wieso benutzt du nicht den Filter?
  Thema: Einzelne Zellen aktualisieren 
Phelan XLPH

Antworten: 7
Aufrufe: 3296

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 18:15   Titel: AW: Einzelne Zellen aktualisieren Version: Office 2007
Doch das geht.

Range("A8").Calculate

Bedenke: Berechnung muss auf Manuell stehen
  Thema: Spalteninhalte in Zeilen schreiben 
Phelan XLPH

Antworten: 6
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 18:06   Titel: AW: Spalteninhalte in Zeilen schreiben Version: Office 2007
Also übersprungen wird da nix. Confused
  Thema: Spalteninhalte in Zeilen schreiben 
Phelan XLPH

Antworten: 6
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 18:02   Titel: AW: Spalteninhalte in Zeilen schreiben Version: Office 2007
mmhhh, ich hab 2007.

der code läft beimir nach deinen BeispielDaten

vorher:
Tabelle1  ABC1 ab2 4abc3 4cde4 4efg5 4abc6 4doe7 5fgi8 5fhr9 5fro10 5gir11 6rgr12 6gre [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html

nacher:
Tabelle1  ABCDEFGHI1 abab    2 4abc4abccdeefgabcdoe3 4cde5fgifhrfrogir 4 4efg6rgrgre   5 4abc      6 4doe      7 5fgi      8 5fhr      9 5fro      10 5gir      11 6rgr      12 6gre       [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html


Wieviele Datensätze sind es denn?
  Thema: Spalteninhalte in Zeilen schreiben 
Phelan XLPH

Antworten: 6
Aufrufe: 467

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 17:49   Titel: AW: Spalteninhalte in Zeilen schreiben Version: Office 2007
Sub Transpo()
Dim arr As Variant
Dim arrD As Variant
Dim i As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")
arr = Range("B1:C" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
Dic(arr(i, 1)) = Dic(arr(i, 1)) & "###" & arr(i, 2)
Next
arr = Dic.Keys
For i = 0 To Dic.Count - 1
Range("D" & i + 1) = arr(i)
arrD = Split(Mid(Dic(arr(i)), 4), "###")
Range("E" & i + 1).Resize(, UBound(arrD) + 1) = _
WorksheetFunction.Transpose(WorksheetFunction.Transpose(arrD))
Next
End Sub
  Thema: Abstand Activecell zu Application.Left und .Top 
Phelan XLPH

Antworten: 5
Aufrufe: 1161

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 17:23   Titel: AW: Abstand Activecell zu Application.Left und .Top Version: Office 2003
@anton,

Danke, das is es.

Danach hab ich gesucht:
ActiveWindow.ActivePane.VisibleRange
  Thema: VBA-Makro Zellen zählen 
Phelan XLPH

Antworten: 15
Aufrufe: 3768

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 15:21   Titel: AW: VBA-Makro Zellen zählen Version: Office 2003
so?

Sub StundenZaehlen()
Dim arr As Variant
Dim i As Long, k As Integer
Dim Dic As Object, s As String

Set Dic = CreateObject("Scripting.Dictionary")
arr = Range("A2:E12") 'Bereich anpassen

For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
Dic(arr(i, k)) = Val(Dic(arr(i, k))) + 1
Next
Next
arr = Dic.Keys
For i = 0 To Dic.Count - 1
s = s & vbLf & arr(i) & ": " & Dic(arr(i))
Next
MsgBox s
End Sub
  Thema: Abstand Activecell zu Application.Left und .Top 
Phelan XLPH

Antworten: 5
Aufrufe: 1161

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Nov 2009, 15:07   Titel: AW: Abstand Activecell zu Application.Left und .Top Version: Office 2003
sonst noch jemand ne Idee
 
Seite 519 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 516, 517, 518, 519, 520, 521, 522 ... 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