Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 574 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 571, 572, 573, 574, 575, 576, 577 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Spalten löschen 
Phelan XLPH

Antworten: 3
Aufrufe: 187

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 23:24   Titel: AW: Spalten löschen Version: Office 2007
i=2
k=4
Columns( i & ":" & k).delete
  Thema: Bedingte Formatierung mit vorangegangener Analyse 
Phelan XLPH

Antworten: 6
Aufrufe: 401

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 23:22   Titel: AW: Bedingte Formatierung mit vorangegangener Analyse Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRow As Range, zell As Range
Set rngRow = Range("B2:F100")
If Not Intersect(Target, rngRow) Is Nothing Then
Set rngRow = Intersect(Target.EntireRow, rngRow)
rngRow.Interior.ColorIndex = xlColorIndexNone
For Each zell In rngRow.Cells
If zell.Value = WorksheetFunction.Max(rngRow) Then
zell.Interior.ColorIndex = 3 'Rot
ElseIf zell = WorksheetFunction.Min(rngRow) Then
zell.Interior.ColorIndex = 4 'Grün
ElseIf IsNumeric(zell) Then
zell.Interior.ColorIndex = 6 'Gelb
End If
Next
End If
End Sub
  Thema: Zelle finden - gleiche Zeile, Spalte D 
Phelan XLPH

Antworten: 10
Aufrufe: 340

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 23:17   Titel: AW: Zelle finden - gleiche Zeile, Spalte D Version: Office 2003
mit Paramtern wäre das doch viel flexibler...

ausserdem eine UDF dafür ist unnötig
  Thema: Datenüberprüfung 
Phelan XLPH

Antworten: 2
Aufrufe: 1315

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 23:11   Titel: AW: Datenüberprüfung Version: Office 2007
trotzdem...
  Thema: Array mit Zellendaten füllen 
Phelan XLPH

Antworten: 7
Aufrufe: 5064

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 22:42   Titel: AW: Array mit Zellendaten füllen Version: Office 2k (2000)
Was willst du machen? es gibt mehrere Möglihkeiten des Ein-und Auslesens des
arrays.
  Thema: Array mit Zellendaten füllen 
Phelan XLPH

Antworten: 7
Aufrufe: 5064

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 21:13   Titel: AW: Array mit Zellendaten füllen Version: Office 2k (2000)
VariableXY = Sheets("Tabelle1").Range("A1:A5").Value
  Thema: Anzahl Leerzellen angeben 
Phelan XLPH

Antworten: 38
Aufrufe: 1291

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 21:10   Titel: AW: Anzahl Leerzellen angeben Version: Office XP (2002)
ersetz das:
Me.Protect "PW"
durch das:
Me.EnableAutoFilter = True
Me.Protect "PW", contents:=True, userInterfaceOnly:=True
  Thema: Bedingte Formatierung mit vorangegangener Analyse 
Phelan XLPH

Antworten: 6
Aufrufe: 401

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 21:04   Titel: AW: Bedingte Formatierung mit vorangegangener Analyse Version: Office 2003
ins codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngRow As Range, zell As Range
If Not Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
Set rngRow = Intersect(Target.EntireRow, Range("A1").CurrentRegion)
rngRow.Interior.ColorIndex = xlColorIndexNone
For Each zell In rngRow.Cells
If zell.Value = WorksheetFunction.Max(rngRow) Then
zell.Interior.ColorIndex = 3 'Rot
ElseIf zell = WorksheetFunction.Min(rngRow) Then
zell.Interior.ColorIndex = 4 'Grün
ElseIf IsNumeric(zell) Then
zell.Interior.ColorIndex = 6 'Gelb
End If
Next
End If
End Sub
  Thema: Stammdaten in mehreren Tabellen synchronisieren 
Phelan XLPH

Antworten: 1
Aufrufe: 2969

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:37   Titel: AW: Stammdaten in mehreren Tabellen synchronisieren Version: Office 2003
ins Codefenster deiner Tabelle1:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("A:E")) Is Nothing Then
Set rng = Intersect(Target, Range("A:E"))
'Ohne Formate
'Tabelle2.Cells(rng.Row, rng.Column).Resize(rng.Rows.Count, rng.Columns.Count).Value = _
'rng.Value

'Mit Formate
rng.Copy Tabelle2.Cells(rng.Row, rng.Column)
End If
End Sub
  Thema: For anweisung von x To "Zelle = Leer" 
Phelan XLPH

Antworten: 3
Aufrufe: 1019

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:27   Titel: AW: For anweisung von x To "Zelle = Leer" Version: Office 2k (2000)
For b = 9 To Sheets("Daten").Cells(9,2).End(xlDown).Row
If Sheets("Daten").Cells(b, "D").Value = "XXX" Then
If Sheets("Daten").Cells(b, "G").Value = "XXX" Then
Sheets("XXX").Cells(32, "E").Value = Sheets("Daten").Cells(b, "H").Value
End If
End If
Next

blaumarkiert: Du überschreibst in der Schleife ständig die Zelle
  Thema: Anzahl Leerzellen angeben 
Phelan XLPH

Antworten: 38
Aufrufe: 1291

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:21   Titel: AW: Anzahl Leerzellen angeben Version: Office XP (2002)
Schau in den Code (ALT+F4)
  Thema: Bedingte Formatierung mit vorangegangener Analyse 
Phelan XLPH

Antworten: 6
Aufrufe: 401

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:20   Titel: AW: Bedingte Formatierung mit vorangegangener Analyse Version: Office 2003
Hilfe ich bin Blind, das muss ich jetzt erst mal vom Flur aus betrachten Laughing

Mit dem Bild aufm Bildschirm könnte mich ja die CIA orten. Laughing

...ach ja zu deinem Problem: versteh ich nicht, 30 ist rot und 50 grün, ist das
jeweils auf die einzelnen angebote jeweiliger Lieferanten bezogen, also
kein Vergleich zw. den Lieferanten?
  Thema: Anzahl Leerzellen angeben 
Phelan XLPH

Antworten: 38
Aufrufe: 1291

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:13   Titel: AW: Anzahl Leerzellen angeben Version: Office XP (2002)
Jetzt weiss du wozu es Sicherungskopies gibt, auch wenn du es bisher nur
gehört hast, jetzt hast es gespürt Laughing Laughing Laughing
  Thema: Transponieren 
Phelan XLPH

Antworten: 5
Aufrufe: 294

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:10   Titel: AW: Transponieren Version: Office 2003
Sub Transe()
Dim i As Integer
For i = 1 To 3
Worksheets("Übersicht").Range("E" & i & ":AI" & i).Value = _
WorksheetFunction.Transpose(Worksheets("Schicht " & i).Range("B8:B38").Value)
Next
End Sub
  Thema: Anzahl Leerzellen angeben 
Phelan XLPH

Antworten: 38
Aufrufe: 1291

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Aug 2009, 20:00   Titel: AW: Anzahl Leerzellen angeben Version: Office XP (2002)
hier mit schutz, wie hast du das bloss angestellt
 
Seite 574 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 571, 572, 573, 574, 575, 576, 577 ... 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 Word Serienbriefe