Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 607 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 604, 605, 606, 607, 608, 609, 610 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zellenbereich verschieben 
Phelan XLPH

Antworten: 3
Aufrufe: 182

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 15:10   Titel: AW: Zellenbereich verschieben Version: Office 2007
So:

Sub Bsp()
Range("J43:J52").Copy
Range("J44:J53").PasteSpecial xlPasteValues
Range("J43") = ""
End Sub

Sub Besser()
Range("J44:J53").Value = Range("J43:J52").Value
Range("J43") = ""
End Sub
  Thema: Zellen automatisch sperren bei bestimmter Eingabe 
Phelan XLPH

Antworten: 14
Aufrufe: 677

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 14:49   Titel: AW: Zellen automatisch sperren bei bestimmter Eingabe Version: Office XP (2002)
Oh, du hast 2002,

dann erkennt er wohl das Ereignis nicht.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Das kannst du selber ertsellen:
im codefenster "DieseArbeitsmappe",
linke ComboBox "Workbook" wählen
rechte ComboBox "BeforeSave" oder in der Art wählen

in den zuletzt erstellten Prozedurkörper, den Rest des Makros hineinkopieren.
  Thema: Vergleich von Datumspalten 
Phelan XLPH

Antworten: 3
Aufrufe: 302

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 14:41   Titel: AW: Vergleich von Datumspalten Version: Office 2003
Hallo RIGA,

hab auch ne Variante:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zell As Range
Dim Farbe As Long
If Not Intersect(Target, Columns(2)) Is Nothing Then
Application.EnableEvents = False
For Each zell In Intersect(Target, Columns(2))
If IsDate(zell.Offset(, -1)) And _
Fix(zell.Offset(, -1)) <= zell And _
zell <= Date Then

Else
zell.Select
Farbe = zell.Interior.ColorIndex
zell.Interior.ColorIndex = 6
MsgBox "Eitrag ist kein Datum o. kleiner als " & Fix(zell.Offset(, -1)) & _
" o. größer als Heute! ", , "Hinweis"
zell = ""
zell.Interior.ColorIndex = Farbe
End If
Next
...
  Thema: Zellinhalte löschen 
Phelan XLPH

Antworten: 2
Aufrufe: 265

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 14:08   Titel: AW: Zellinhalte löschen Version: Office 2003
Da musst du auf den Fehler reagieren, anders abfangen geht da nicht,
bzw ist mir nicht bekannt.

On Error Resume Next
Cells(Rows.Count, 1).End(xlUp).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0
  Thema: Worksheets und Makro 
Phelan XLPH

Antworten: 4
Aufrufe: 289

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:40   Titel: AW: Worksheets und Makro Version: Office 2007
folgende Zeile tauschen:

das:
wksS.UsedRange.Copy Destination:=wksT.Cells(RowsT, 1)
mit dem:
wksS.UsedRange.Offset(1).Copy Destination:=wksT.Cells(RowsT, 1)
  Thema: Zellenbereich verschieben 
Phelan XLPH

Antworten: 3
Aufrufe: 182

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:38   Titel: AW: Zellenbereich verschieben Version: Office 2007
Wie wärs mit: eine Zeile einfügen >> Rows(43).Insert
  Thema: Worksheets und Makro 
Phelan XLPH

Antworten: 4
Aufrufe: 289

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:36   Titel: AW: Worksheets und Makro Version: Office 2007
Meinst du mit Titel die erste Zeile?
  Thema: alle Zahlen in einer Splate absteigend sortieren (per Makro) 
Phelan XLPH

Antworten: 3
Aufrufe: 2130

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:27   Titel: AW: alle Zahlen in einer Splate absteigend sortieren (per Ma Version: Office 2003
So?

Sub KopieSortiern()
With Worksheets("Tabelle1") 'Anpassen
.Range("A:A").Copy .Range("C1")
.Range("C:C").Sort .Range("C1"), Header:=xlGuess
End With
End Sub
  Thema: Zellenfarbe in RGB passt nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 2292

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:20   Titel: AW: Zellenfarbe in RGB passt nicht Version: Office 2003
@bst

...war mir bekannt doch wieder vergessen. Da sieht man mal
wie Auffrischung manchmal nötig ist.

Kann ich denn zu der StandardPalette nicht selbstdef. Farbtöne hinzufügen,
muss ich denn immer einer der 56 überschhreiben?
  Thema: String mit InStr nach "!" durchsuchen und dort zer 
Phelan XLPH

Antworten: 4
Aufrufe: 2342

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:11   Titel: AW: String mit InStr nach "!" durchsuchen und dort Version: Office 2003
So:

Name1 = "Product1/Referenz_statischer_Lastfall.1/!2"
Ergebnis = VBA.Mid(Name1, VBA.InStr(1, Name1, "!") + 1)
  Thema: Zahlen und Buchstaben in Textbox 
Phelan XLPH

Antworten: 20
Aufrufe: 1762

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:05   Titel: AW: Zahlen und Buchstaben in Textbox Version: Office 2003
Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil Twisted Evil
  Thema: Bindestrich entfernen 
Phelan XLPH

Antworten: 10
Aufrufe: 4469

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 13:03   Titel: AW: Bindestrich entfernen Version: Office 2003
@Galdumir

...wieso sollte das nicht gehn? türlich geht das 8)
  Thema: Zellenfarbe in RGB passt nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 2292

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 12:56   Titel: AW: Zellenfarbe in RGB passt nicht Version: Office 2003
@bst

damit wird die Standardpalette neu belegt .Colors(1) (schwarz)
enthält dann einen benutzerdefinierten Farbton.

Wie lange ist der gültig?

Wenn remanent, wie erhalte ich die Standardpalette zurück?
  Thema: Zahlen und Buchstaben in Textbox 
Phelan XLPH

Antworten: 20
Aufrufe: 1762

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 12:51   Titel: AW: Zahlen und Buchstaben in Textbox Version: Office 2003
Das 3.Thread für das selbe Thema... Twisted Evil Twisted Evil Twisted Evil Twisted Evil
  Thema: Suchen/ersetzen aber nur in 1 Zelle 
Phelan XLPH

Antworten: 7
Aufrufe: 324

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jul 2009, 12:44   Titel: AW: Suchen/ersetzen aber nur in 1 Zelle Version: Office 2003
Sub SuchenErsetzen()
Worksheets("Tabelle1").Range("A6").Replace "Kraftfahrzeug", "KFZ"
End Sub
 
Seite 607 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 604, 605, 606, 607, 608, 609, 610 ... 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