Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 626 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 623, 624, 625, 626, 627, 628, 629 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Duplikate aus einer Zelle herausfiltern 
Phelan XLPH

Antworten: 21
Aufrufe: 1083

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 17:10   Titel: AW: Duplikate aus einer Zelle herausfiltern Version: Office 2003
@XL-Tüftler

DANKE, halb so wild
  Thema: Zeile Löschen klappt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 16:55   Titel: AW: Zeile Löschen klappt nicht Version: Office 2007
...oder die VBA-Hilfe.

Ich steig da noch nicht ganz durch, weiss auch nicht wozu man die Sachen
benötigt.

Wieso einer Variablen Null zuweisen, was will man damit nur bezwecken?
Sollte öfters mal in die Kirche gehen - ist vielleicht mal Thema in einer
Predigt Surprised

Edit:
In der Datenbank machts Sinn bzw. ist erforderlich
  Thema: Beschleunigung eines Makros 
Phelan XLPH

Antworten: 8
Aufrufe: 880

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 16:47   Titel: AW: Beschleunigung eines Makros Version: Office 2003
...da hab ich wohl zuviel weggeschnitten.

das muss natürlich so heissen:
.Range("A1:N2").Font.Bold = True
  Thema: Duplikate aus einer Zelle herausfiltern 
Phelan XLPH

Antworten: 21
Aufrufe: 1083

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 16:42   Titel: AW: Duplikate aus einer Zelle herausfiltern Version: Office 2003
Hoi,

oder als selbstdefinierte Funktion.

in ein StandardModul:
Public Function UNIKATE(Text As String, Sort As Boolean) As String
Dim arr As Variant
Dim Dic As Object
Dim h As Variant
Dim i As Long
Dim k As Long

Set Dic = CreateObject("Scripting.Dictionary")
arr = Split(Replace(Text, " ", ""), ",")

'Sortieren
If Sort Then
For i = UBound(arr) To 0 Step -1
For k = 0 To i - 1
If arr(k) > arr(k + 1) Then
h = arr(k)
arr(k) = arr(k + 1)
arr(k + 1) = h
End If
Next
Next
End If

'Unikate bilden
For i = 0 To UBound(arr)
Dic(arr(i)) = ""
Next
UNIKATE = Join(Dic.Keys, ",")
End Function

Funktionaufruf:
=UNIKATE(B4;0) -> 2. Argument 0 => ohne Sortierung
=UNIKATE(B4;1) -> ...
  Thema: Beschleunigung eines Makros 
Phelan XLPH

Antworten: 8
Aufrufe: 880

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 16:08   Titel: AW: Beschleunigung eines Makros Version: Office 2003
Hoi,

da fehlt ":O" wegen dem blöden Smily

muss so heissen
.Range("B:B,I:I,K:K,M:M,O:O,S:Y,AA:AE,AG:AJ").Delete Shift:=xlToLeft
  Thema: Zeile Löschen klappt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 14:24   Titel: AW: Zeile Löschen klappt nicht Version: Office 2007
Ist Null und Empty das gleiche?
  Thema: Zeile Löschen klappt nicht 
Phelan XLPH

Antworten: 9
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 14:09   Titel: AW: Zeile Löschen klappt nicht Version: Office 2007
Muss man das verstehen... aber wie kann denn eine Null aus der
TextBox zurückgegeben werden?
  Thema: Menü Kontexmenüpunkte sperren 
Phelan XLPH

Antworten: 19
Aufrufe: 1248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 13:57   Titel: AW: Menü Kontexmenüpunkte sperren Version: Office 97
Ok, dann über die ID:

Private Sub Worksheet_Activate()
Dim ctrl As CommandBarControl
For Each ctrl In Application.CommandBars("Cell").Controls
If ctrl.ID = 3181 Or ctrl.ID = 292 Then ctrl.Enabled = False
Next
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

Hier um zu schauen welche IDs die Controls noch haben:
Sub AusgabeCaptionID()
Dim ctrl As CommandBarControl
Dim s As String
For Each ctrl In Application.CommandBars("Cell").Controls
s = s & vbLf & ctrl.Caption & vbTab & ctrl.ID
Next
MsgBox "Caption" & vbTab & vbTab & "ID" & vbLf & s
End Sub
  Thema: wieso MkDir Laufzeitfehler 76 
Phelan XLPH

Antworten: 7
Aufrufe: 2690

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 13:44   Titel: AW: wieso MkDir Laufzeitfehler 76 Version: Office XP (2002)
Hoi,

da hat was tolles >> API-Funktion: MakeSureDirectoryPathExists
Option Explicit

Private Declare Function MakeSureDirectoryPathExists _
Lib "imagehlp.dll" (ByVal Pfad As String) As Long

Sub Test()
MakeSureDirectoryPathExists ("D:\Test\Glücksritter1\Glücksritter1\Glücksritter1\") 'Pfad/Ordner erstellen
ActiveWorkbook.SaveAs ("D:\Test\Glücksritter1\Glücksritter1\Glücksritter1\TestDaten.xls") ' Mappe abspeichern
End Sub


Erzeugt den Pfad am Stück falls er nicht existiert...vielleicht kannst was damit anfangen.
  Thema: Menü Kontexmenüpunkte sperren 
Phelan XLPH

Antworten: 19
Aufrufe: 1248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 13:29   Titel: AW: Menü Kontexmenüpunkte sperren Version: Office 97
.Controls("Zellen &einfügen...").Enabled = False
.Controls("Ze&llen löschen...").Enabled = False
  Thema: Menü Kontexmenüpunkte sperren 
Phelan XLPH

Antworten: 19
Aufrufe: 1248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 12:34   Titel: AW: Menü Kontexmenüpunkte sperren Version: Office 97
so vielleicht:

Private Sub Worksheet_Activate()
With Application.CommandBars("Cell")
.Controls("Zellen &einfügen...").Enabled = False
.Controls("Ze&llen löschen...").Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub

ich hab XL2007 und Noob hat 97 dann müsste es auch in 2003 gehen Very Happy
  Thema: Punkt mit , ersetzen 
Phelan XLPH

Antworten: 27
Aufrufe: 1633

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 11:59   Titel: AW: Punkt mit , ersetzen Version: Office XP (2002)
@ Exceltüftler

hast du auch xl2002? ... wenn ja dann teste mal meinen Code,
schau mal ob er bei dir tut, oder ob er bei dir generell tütet! Smile
  Thema: Menü Kontexmenüpunkte sperren 
Phelan XLPH

Antworten: 19
Aufrufe: 1248

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 11:39   Titel: AW: Menü Kontexmenüpunkte sperren Version: Office 97
Hoi,

ins codefenster eines Blattes:
Private Sub Worksheet_Activate()
With Application.CommandBars("Cell")
.Controls("Zellen einfügen...").Enabled = False
.Controls("Zellen löschen...").Enabled = False
End With
End Sub

Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
  Thema: Punkt mit , ersetzen 
Phelan XLPH

Antworten: 27
Aufrufe: 1633

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 11:24   Titel: AW: Punkt mit , ersetzen Version: Office XP (2002)
Hoi,

@aima 1

ich kann mir nicht vorstellen, dass das Programm, das die Daten weiterverarbeiten
soll keine Text-Datei lesen kann!
  Thema: Eingeblendete Tabellenblätter drucken 
Phelan XLPH

Antworten: 15
Aufrufe: 1130

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Jul 2009, 10:28   Titel: AW: Eingeblendete Tabellenblätter drucken Version: Office XP (2002)
Sowas aber auch.... Rolling Eyes Rolling Eyes
 
Seite 626 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 623, 624, 625, 626, 627, 628, 629 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editor Forum