Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 733 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 730, 731, 732, 733, 734, 735, 736 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Leere Zeilen ausblenden 
Phelan XLPH

Antworten: 2
Aufrufe: 411

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 19:38   Titel: AW: Leere Zeilen ausblenden Version: Office 2007
Probier mal das:
Worksheets("Tabelle1").UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
  Thema: Nur Zeilen mit Inhalt in eine Liste Kopieren 
Phelan XLPH

Antworten: 16
Aufrufe: 2575

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 19:30   Titel: AW: Nur Zeilen mit Inhalt in eine Liste Kopieren Version: Office 2007
Hallo Peter hab deinen ersten code getestet,
geht auch bei Formeln wunderbar!
  Thema: zufallstext durch konpfdruck ausgeben 
Phelan XLPH

Antworten: 14
Aufrufe: 628

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 19:25   Titel: AW: zufallstext durch konpfdruck ausgeben Version: Office 2k (2000)
Das hier löschen wird nicht benötigt:

MsgBox arrMerk(intPos)
  Thema: Frage zu Zellenformatierungen 
Phelan XLPH

Antworten: 4
Aufrufe: 156

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 14:22   Titel: AW: Frage zu Zellenformatierungen Version: Office 2003
poste mal diesen codeabschnitt!
  Thema: Nur Zeilen mit Inhalt in eine Liste Kopieren 
Phelan XLPH

Antworten: 16
Aufrufe: 2575

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 14:15   Titel: AW: Nur Zeilen mit Inhalt in eine Liste Kopieren Version: Office 2007
Wenn ich mich einmischen darf Confused

kannst auch das hier nehmen:
WkSh_Q.Cells.SpecialCells(xlCellTypeLastCell).Row
  Thema: Bedingte Zeilenformatierung mit 6 Farben 
Phelan XLPH

Antworten: 4
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 14:09   Titel: AW: Bedingte Zeilenformatierung mit 6 Farben Version: Office 2003
jetzt aber:

Private Sub Worksheet_Calculate()
Dim intFarbe As Integer
Dim zell As Range
'1-6 sind die Werte und 3-8 die Farbindizes -> Anpassen
For Each zell In ActiveSheet.UsedRange.Columns(26).Cells
Select Case zell.Value
Case 1: intFarbe = 3
Case 2: intFarbe = 4
Case 3: intFarbe = 5
Case 4: intFarbe = 6
Case 5: intFarbe = 7
Case 6: intFarbe = 8
Case Else: intFarbe = -4142 'Farbmarkierung rücksetzen
End Select
Range(Cells(zell.Row, 1), Cells(zell.Row, 26)).Interior.ColorIndex = intFarbe
Next
End Sub
  Thema: Prüfung ob Gruppierung/Gliederung besteht 
Phelan XLPH

Antworten: 3
Aufrufe: 1311

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 13:33   Titel: AW: Prüfung ob Gruppierung/Gliederung besteht Version: Office 2003
...das meinte ich doch....war nur ein Bispiel Surprised
  Thema: Prüfung ob Gruppierung/Gliederung besteht 
Phelan XLPH

Antworten: 3
Aufrufe: 1311

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 10:51   Titel: AW: Prüfung ob Gruppierung/Gliederung besteht Version: Office 2003
Treffer...jetzt will ich aber nicht hören dass es nicht das ist wonach du suchst Very Happy

Sub EbeneEinAusblenden()
Dim i As Integer
With Worksheets("Tabelle1")
i = InputBox("Ebene Wählen: ", "Anzahl Ebenen: " & .Rows("5:10").OutlineLevel, 1)
Select Case i
Case 1: .Outline.ShowLevels 1
Case .Rows("5:10").OutlineLevel: .Outline.ShowLevels .Rows("5:10").OutlineLevel
Case Else: .Outline.ShowLevels 2
End Select
End With
End Sub
  Thema: nur bestimmte Zellen sperren 
Phelan XLPH

Antworten: 12
Aufrufe: 1887

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 10:06   Titel: AW: nur bestimmte Zellen sperren Version: Office 2003
Habs doch gewusst nur vergessen aber Autofilter kann man
übers protect regeln nur outlining nicht sowie Sortierung:

http://www.online-excel.de/excel/singsel_vba.php?f=134

...also für die Zukunft merken:

Hanhabung bei Blattschutz möglich:
-Autofilter=ja
-Outlining=ja
-Sortierung=nein

...kann das jemand bestätigen?
  Thema: Excel - Clipboard Funktion ohne Rueckgabewert 
Phelan XLPH

Antworten: 8
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 09:09   Titel: AW: Excel - Clipboard Funktion ohne Rueckgabewert Version: Office 2003
Wieso übergibst du ein String (S)?

...probiers mal so:
Sub Test()
Range("A1").Copy 'Bsp. Text in "A1" der in die Zwischenablage kopiert wird
MsgBox GetClipboard
End Sub

Public Function GetClipboard() As String 'Wert aus Zwischenablage lesen
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
GetClipboard = MyDataObj.GetText
End Function

Korrektur
  Thema: Bedingte Zeilenformatierung mit 6 Farben 
Phelan XLPH

Antworten: 4
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 08:48   Titel: AW: Bedingte Zeilenformatierung mit 6 Farben Version: Office 2003
Moin,

ins Codefenster der tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intFarbe As Integer
If Not Intersect(Target, Range("Z:Z")) Is Nothing Then
On Error GoTo fehler:
Application.EnableEvents = False
'1-6 sind die Werte und 3-8 die Farbindizes -> Anpassen
Select Case Target(1, 1).Value
Case 1: intFarbe = 3
Case 2: intFarbe = 4
Case 3: intFarbe = 5
Case 4: intFarbe = 6
Case 5: intFarbe = 7
Case 6: intFarbe = 8
Case Else: intFarbe = -4142 'Farbmarkierung rücksetzen
End Select
If Target.Rows.Count > 1 Then
Intersect(Target.EntireRow, Range("A:Z")).Interior.ColorIndex = intFarbe
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 26)).Interior.ColorIndex = intFarbe
End If
Application.EnableEvents = True
End If
Exit Su ...
  Thema: Zellfarbe bedingt ändern 
Phelan XLPH

Antworten: 7
Aufrufe: 610

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 08:00   Titel: AW: Zellfarbe bedingt ändern Version: Office 2k (2000)
Moin,

ändere das:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "importiertes_Tabellenblatt" Then Exit Sub 'Name anpassen
Faerben
End Sub


in das:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Start" Then Exit Sub 'Name anpassen
Faerben
End Sub

...somit werden alle Blätter gefärbt bis auf Blatt "Start"
  Thema: datei speichern ohne frage ob sie überspeichern soll 
Phelan XLPH

Antworten: 7
Aufrufe: 1542

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. März 2009, 07:37   Titel: AW: datei speichern ohne frage ob sie überspeichern soll Version: Office 2007
Moin,

hat das nen bestimmten Grund?:

Application.DisplayAlerts

bei Verwendung wbkMappe.Save kann man doch das
Aus/Einschalten der Warnmeldungsanzeige weglassen.

auch ne Möglichkeit:
wbkMappe.Close SaveChanges:=True
  Thema: ComboBox "reset" 
Phelan XLPH

Antworten: 9
Aufrufe: 2954

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Feb 2009, 20:29   Titel: AW: ComboBox "reset" Version: Office 2003
Ach das meinst du!

in Private Sub CommandButton1_Click() vor End Sub einfügen!

ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
  Thema: Dateiname ändern 
Phelan XLPH

Antworten: 4
Aufrufe: 610

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Feb 2009, 19:51   Titel: AW: Dateiname ändern Version: Office 2003
Was steckt hinter AlterName und NeuerName....sind beide Pfade Gleich?
 
Seite 733 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 730, 731, 732, 733, 734, 735, 736 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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