Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 610 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 607, 608, 609, 610, 611, 612, 613 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Makro erstellen für zu viele Wenn Funktion 
Phelan XLPH

Antworten: 6
Aufrufe: 630

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:21   Titel: AW: Makro erstellen für zu viele Wenn Funktion Version: Office 2003
Wieso benutzt du nicht den Filter?
  Thema: 10 größten Werte einer Spalte 
Phelan XLPH

Antworten: 10
Aufrufe: 1479

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:17   Titel: AW: 10 größten Werte einer Spalte Version: Office 2003
Und Filtern???? Top10 und Kopieren fertig
  Thema: Automatisch Kommentare einfügen 
Phelan XLPH

Antworten: 11
Aufrufe: 891

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 15:14   Titel: AW: Automatisch Kommentare einfügen Version: Office 2003
Austausch:

If Not zell.Comment Is Nothing Then zell.Comment.Delete
zell.AddComment .Cells(i, 8).Text
With zell.Comment.Shape.TextFrame
With .Characters.Font
.Name = "Arial"
.Size = 14
.Bold = True
End With
With .Characters(1, Len(Split(zell.Comment.Text, vbLf)(0))).Font
.ColorIndex = 5
.Name = "Arial"
.Size = 22
.Bold = True
End With
.AutoSize = True
End With

...habs noch ein wenig ausgeschmückt Very Happy
  Thema: nixie-abgleich (robinsonliste) aus 2 tabellen 
Phelan XLPH

Antworten: 14
Aufrufe: 1125

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 14:39   Titel: AW: nixie-abgleich (robinsonliste) aus 2 tabellen Version: Office 2007
Hallo Corri,

nur so am Rande....andere verlangen für sowas Geld Wink

Probiers mal hiermit, hab auch 2007 und habs mit 50.000 Zeilen getestet.

Sub Abgleich()
Dim wksD As Worksheet
Dim wksRef As Worksheet
Dim arrD As Variant
Dim arrR As Variant
Dim lngI As Long
Dim lngK As Long
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

Set wksD = Worksheets("Tabelle1") 'Anpassen
Set wksRef = Worksheets("Tabelle2") 'Anpassen

arrD = wksD.Range("A1:B" & wksD.Cells(Rows.Count, 1).End(xlUp).Row)
arrR = wksRef.Range("A1:B" & wksRef.Cells(Rows.Count, 1).End(xlUp).Row)

For lngI = 1 To UBound(arrR)
Dic(arrR(lngI, 1) & arrR(lngI, 2)) = ""
Next

For lngI = 1 To UBound(arrD)
If Dic.Exists(arrD(lngI, 1) & arrD(lngI, 2)) Then ...
  Thema: Makro erstellen für zu viele Wenn Funktion 
Phelan XLPH

Antworten: 6
Aufrufe: 630

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 13:52   Titel: AW: Makro erstellen für zu viele Wenn Funktion Version: Office 2003
Vielleicht hilft dir das weiter
  Thema: Zellen automatisch sperren bei bestimmter Eingabe 
Phelan XLPH

Antworten: 14
Aufrufe: 677

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 13:48   Titel: AW: Zellen automatisch sperren bei bestimmter Eingabe Version: Office XP (2002)
Ja dann.....

ins codefenster von "DieseArbeitsmappe":

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim zell As Range
With Worksheets("Tabelle1") 'ANPASSEN
.Unprotect
Cells.Locked = False
For Each zell In .Range("A3:D25") 'ANPASSEN
If zell.Value = "U" Then
zell.Locked = True
End If
Next
.Protect
End With
End Sub
  Thema: Steuerelemente Größe 
Phelan XLPH

Antworten: 2
Aufrufe: 580

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 11:49   Titel: AW: Steuerelemente Größe Version: Office 2003
-Rechtsklick
-Steuerelemnte formatieren...
-Eigenschaften

8)
  Thema: Zählen, wenn Wert das erste Mal über 3,5 
Phelan XLPH

Antworten: 13
Aufrufe: 951

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 11:47   Titel: AW: Zählen, wenn Wert das erste Mal über 3,5 Version: Office 2003
ja das mit dem Areas hab ich übersehn Very Happy
  Thema: Blanks in Zelle einfügen 
Phelan XLPH

Antworten: 16
Aufrufe: 1140

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 11:23   Titel: AW: Blanks in Zelle einfügen Version: Office 2003
folgende Zeile einfach auf 20 ändern.

WortLaenge = 25 '***ANPASSEN***

EDIT: hab gemerkt falls WortLaenge kleiner als eine ZellenInhaltLänge dann
läuft er in nen Fehler, tausch folgrnden Code-Teil aus:

arrZ = Split(lesen, vbLf)
For i = LBound(arrZ) To UBound(arrZ)
arrS = Split(arrZ(i), vbTab)
For k = LBound(arrS) To UBound(arrS)
If WortLaenge - Len(arrS(k)) > 0 Then _
arrS(k) = arrS(k) & String(WortLaenge - Len(arrS(k)), " ")
Next
TxT = TxT & Join(arrS, vbTab) & vbCrLf
Next
  Thema: Textbox mit KW füllen 
Phelan XLPH

Antworten: 7
Aufrufe: 448

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 11:20   Titel: AW: Textbox mit KW füllen Version: Office 2003
Hallo,

hier ein Bsp mit 2 TextBoxen:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If IsNumeric(.Text) Then
If Len(.Text) = 8 Then
.Text = Mid(.Text, 1, 2) & "." & Mid(.Text, 3, 2) & "." & Mid(.Text, 5, 4)
If IsDate(.Text) Then
TextBox2.Text = "KW" & DIN_KW(CDate(.Text))
Else
MsgBox "Kein Datum!", , .Text
TextBox2.Text = ""
.Text = ""
Cancel = True
End If
Else
MsgBox "max 8 Ziffern", , .Text
TextBox2.Text = ""
.Text = ""
Cancel = True
End If
Else
MsgBox "Nur Zahlen erlaubt...", , .Text
TextBox2.Text = ""
...
  Thema: Blanks in Zelle einfügen 
Phelan XLPH

Antworten: 16
Aufrufe: 1140

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 10:59   Titel: AW: Blanks in Zelle einfügen Version: Office 2003
Nur SpalteA bis zu 20Zeichen auffüllen und die restlichen Spalten normal belassen?
  Thema: Combobox löschen (zuletzter markierter Eintrag) 
Phelan XLPH

Antworten: 2
Aufrufe: 1262

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 10:45   Titel: AW: Combobox löschen (zuletzter markierter Eintrag) Version: Office 2003
Hallo,
nimm mal das hinzu:
cb.Value = ""

EDIT: habs grad nochmal getestet mit .Clear wird doch alles gelöscht. Exclamation Question
  Thema: Zellenverknüpfungen über Userform 
Phelan XLPH

Antworten: 4
Aufrufe: 410

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 10:39   Titel: AW: Zellenverknüpfungen über Userform Version: Office 2007
Hallo,

Mein Problem ist dass die Werte nicht eingegeben werden sondern einer beliebigen Zelle in einem beliebigen Workbook entnommen werden

Un nach welchem Kriterium sollen diese Zellen gefunden werden?
Es wird benötigt:
-Name der QuellMappe
-Name des QuellBlattes
-Wert der Zelle oder direkt ZellAdresse
  Thema: Blanks in Zelle einfügen 
Phelan XLPH

Antworten: 16
Aufrufe: 1140

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 10:34   Titel: AW: Blanks in Zelle einfügen Version: Office 2003
Meinst du einzelne Zellen oder Spalten? Welche bnötigst du größer?
  Thema: Blanks in Zelle einfügen 
Phelan XLPH

Antworten: 16
Aufrufe: 1140

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2009, 10:27   Titel: AW: Blanks in Zelle einfügen Version: Office 2003
teste mal den Upload...
 
Seite 610 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 607, 608, 609, 610, 611, 612, 613 ... 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