Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 589 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 586, 587, 588, 589, 590, 591, 592 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Unterschiedlichen Eintrag in einer Spalte finden 
Phelan XLPH

Antworten: 7
Aufrufe: 228

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 23:27   Titel: AW: Unterschiedlichen Eintrag in einer Spalte finden Version: Office XP (2002)
If zell <> .Range("A2") Then
  Thema: Auswahl einer bestimmten Woche eines Monats 
Phelan XLPH

Antworten: 18
Aufrufe: 1125

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:42   Titel: AW: Auswahl einer bestimmten Woche eines Monats Version: Office 2003
@losgehts

ist dir das bekannt? Smile

Public Function DIN_KW(DasDatum As Date) As Byte
Dim KW As Date
KW = 4 + DasDatum - Weekday(DasDatum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function
  Thema: Unterschiedlichen Eintrag in einer Spalte finden 
Phelan XLPH

Antworten: 7
Aufrufe: 228

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:34   Titel: AW: Unterschiedlichen Eintrag in einer Spalte finden Version: Office XP (2002)
so:

Sub Laenger4Zeichen()
Dim zell As Range
With Tabelle1
For Each zell In .Range("A1:A" & Cells(.Rows.Count, 1).End(xlUp).Row)
If Len(zell.Text) > 4 Then
zell.Interior.ColorIndex = 6
End If
Next
End With
End Sub
  Thema: Excel-Datei mit VBScript nach CSV speichern 
Phelan XLPH

Antworten: 6
Aufrufe: 2041

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:30   Titel: AW: Excel-Datei mit VBScript nach CSV speichern Version: Office 2003
Hättste sagen müssen wo der Code steht, wohl nicht in Excel, oder?
  Thema: Teil einer Spalte kopieren 
Phelan XLPH

Antworten: 4
Aufrufe: 394

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:29   Titel: AW: Teil einer Spalte kopieren Version: Office 2003
...dabei will ich doch NUR den Weltfrieden Sad Sad Sad

Laughing Laughing Laughing Laughing Laughing Laughing Laughing
  Thema: Bei Änderunge in Zellen soll in Zelle BA ein "x" s 
Phelan XLPH

Antworten: 3
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:27   Titel: AW: Bei Änderunge in Zellen soll in Zelle BA ein "x&quo Version: Office 2003
@r.mueller

Sollte ein Bereich markiert werden dann wird der ganze Bereich formatiert

um ein Intersect kommt man selten herum. Surprised
  Thema: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1012

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:20   Titel: AW: Bestimmte Anzahl txtboxen in Frame deaktivieren/aktivier Version: Office 2003
büdde,

Private Sub cmdButtonGoN_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Or _
TypeName(ctrl) = "Label" Then
ctrl.Enabled = False
End If
Next
End Sub
  Thema: Unterschiedlichen Eintrag in einer Spalte finden 
Phelan XLPH

Antworten: 7
Aufrufe: 228

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 20:14   Titel: AW: Unterschiedlichen Eintrag in einer Spalte finden Version: Office XP (2002)
Büdde,

Sub Unterschied()
Dim intColor As Integer
With Tabelle1
intColor = .Range("A1").Interior.ColorIndex
.Range("A1:A" & Cells(.Rows.Count, 1).End(xlUp).Row).ColumnDifferences(.Range("A2")).Interior.ColorIndex = 3
.Range("A1").Interior.ColorIndex = intColor
End With
End Sub
  Thema: Makroanfänger :-( 
Phelan XLPH

Antworten: 8
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:49   Titel: AW: Makroanfänger :-( Version: Office 2003
Und wo stehen diese 180 Nummern?
  Thema: Teil einer Spalte kopieren 
Phelan XLPH

Antworten: 4
Aufrufe: 394

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:48   Titel: AW: Teil einer Spalte kopieren Version: Office 2003
Very Happy ...der Code ist mir bekannt.

ersetze das:
zell.EntireRow.Copy _
Worksheets(zell.Text).Cells(Rows.Count, 1).End(xlUp).Offset(1)
durch das:
.Range("A" & zell.Row & ":D" & zell.Row).Copy _
Worksheets(zell.Text).Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Thema: Spalten löschen/einfügen verbieten, Text veränderbar 
Phelan XLPH

Antworten: 8
Aufrufe: 2953

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:36   Titel: AW: Spalten löschen/einfügen verbieten, Text veränderbar Version: Office 2007
ja dann hab ich das falsch gelesen, aber das langt trotzdem nicht
da nach Spalte D trotzdem keine Spalten hinzu oder gelöscht werden können.

Also dieser ZellSchutz muss trotzdem deaktiviert werden für den Rest der tabelle
  Thema: Makroanfänger :-( 
Phelan XLPH

Antworten: 8
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:29   Titel: AW: Makroanfänger :-( Version: Office 2003
der satz ist zu lang versteh ich nicht Sad
  Thema: Excel-Datei mit VBScript nach CSV speichern 
Phelan XLPH

Antworten: 6
Aufrufe: 2041

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:27   Titel: AW: Excel-Datei mit VBScript nach CSV speichern Version: Office 2003
probiers mal ohne dem: , FileFormat:=6
  Thema: Dropdown Auswahlliste Dynamisch 
Phelan XLPH

Antworten: 4
Aufrufe: 3666

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 19:04   Titel: AW: Dropdown Auswahlliste Dynamisch Version: Office 2003
hi,

hier wird eine Gültigkeitsliste in A1 erstellt die sortiert und mit Unikaten gefüllt
wird.

ins codefenster der Tabelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address(0, 0) = "A1" Then 'Anpassen
DropDownFuellen
End If
End Sub


Sub DropDownFuellen()
Dim SL As Object, i As Integer
Dim arr As Variant, txt As String

Set SL = CreateObject("System.Collections.sortedlist")
arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) 'Anpassen
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then _
SL(arr(i, 1)) = ""
Next
For i = 0 To SL.Count - 1
txt = txt & "," & SL.GetKey(i)
Next
With Range("A1").Validation 'Anpassen
.Delete
.Add Type:=xlValidateList, _
Formula1:=Mid(txt, 2)
End ...
  Thema: Spalten löschen/einfügen verbieten, Text veränderbar 
Phelan XLPH

Antworten: 8
Aufrufe: 2953

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2009, 18:43   Titel: AW: Spalten löschen/einfügen verbieten, Text veränderbar Version: Office 2007
So:
 
Seite 589 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 586, 587, 588, 589, 590, 591, 592 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA