Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 596 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 593, 594, 595, 596, 597, 598, 599 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Aktualisierung vermeiden 
Phelan XLPH

Antworten: 6
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 18:11   Titel: AW: Aktualisierung vermeiden Version: Office 97
Wenn das so stark flimmert dann sind wieder mal die...

".Select" und ".Activate" - Ungeziefer mit an Bord genommen worden.
Diese Dinger sollten ausgeräuchert werden.

Ich ernenne hiermit eine neue UngezieferArt die SelAct-Ungeziefer

Laughing Very Happy Laughing Very Happy Shock Rolling Eyes Very Happy Laughing
  Thema: variable speichern für nächsten aufruf 
Phelan XLPH

Antworten: 3
Aufrufe: 348

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 18:05   Titel: AW: variable speichern für nächsten aufruf Version: Office 2007
Oder speicher es in einem Bereichsnamen:

Vorher einmal den Namen ("TextBoxEingabe") anlegen:
Private Sub UserForm_Initialize()
Dim strTxt As String
strTxt = ThisWorkbook.Names("TextBoxEingabe").Value
TextBox1.Text = Replace(Replace(strTxt, """", ""), "=", "")
End Sub

Private Sub UserForm_Terminate()
ThisWorkbook.Names.Add "TextBoxEingabe", TextBox1.Text
End Sub
  Thema: Keypress Ereigniss 
Phelan XLPH

Antworten: 2
Aufrufe: 2232

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 17:41   Titel: AW: Keypress Ereigniss Version: Office 2007
Aus der VBA-Hilfe:

Ein KeyPress-Ereignis kann eintreten, wenn eine der folgenden Tasten gedrückt werden:
-Ein beliebiges darstellbares Zeichen.
-STRG in Kombination mit einem Zeichen aus dem Standardalphabet.
-STRG in Kombination mit einem beliebigen Sonderzeichen.
-RÜCKTASTE.
-ESC.

Ein KeyPress-Ereignis tritt unter den folgenden Bedingungen nicht ein:
Drücken der TAB-TASTE.
-Drücken der EINGABETASTE.
-Drücken einer PFEILTASTE.
-Wenn sich der Fokus aufgrund eines Tastenanschlags von einem Steuerelement
auf einen anderen verschiebt.

Nimm:
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox KeyCode
End Sub
  Thema: Datum in ein Feld übernehmen, Text aber nicht 
Phelan XLPH

Antworten: 3
Aufrufe: 438

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 17:35   Titel: AW: Datum in ein Feld übernehmen, Text aber nicht Version: Office 2003
Private Sub OK_Click()
If IsDate(Box1.Text) Then
ThisWorkbook.Sheets("Startblatt").Cells(1, 2) = Box1.Value
Else
MsgBox "Quuatsch mit Soße (:p)"
End If
UserForm2.Hide
End Sub
  Thema: Aktualisierung vermeiden 
Phelan XLPH

Antworten: 6
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 17:32   Titel: AW: Aktualisierung vermeiden Version: Office 97
@r.mueller

wenn du doch bloß wüßtest was ich alles sehe Laughing

...und das ohne Glaskugel Very Happy Laughing Laughing Laughing

Application.ScreenUpdating = False

'Code

Application.ScreenUpdating = True
  Thema: Datencontainer auf neue Sheets kopieren (Dynamisch) 
Phelan XLPH

Antworten: 6
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 17:28   Titel: AW: Datencontainer auf neue Sheets kopieren (Dynamisch) Version: Office 2007
Hab dir hier 2 Varianten:

Sub DiagrammPositionieren()
Dim lz As Long
With Tabelle38
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
.ChartObjects(1).Top = .Cells(lz + 1, 1).Top
.ChartObjects(1).Left = .Cells(lz + 1, 1).Left
.ChartObjects(1).Width = lz * 30
.ChartObjects(1).Height = 200
End With
End Sub

Sub DiagrammPositionieren2()
Dim lz As Long
With Tabelle38
.ChartObjects(1).Top = Range("A13:E33").Top
.ChartObjects(1).Left = Range("A13:E33").Left
.ChartObjects(1).Width = Range("A13:E33").Width
.ChartObjects(1).Height = Range("A13:E33").Height
End With
End Sub
  Thema: Sortierung in jedem Worksheet * Geht nicht 
Phelan XLPH

Antworten: 4
Aufrufe: 225

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 17:09   Titel: AW: Sortierung in jedem Worksheet * Geht nicht Version: Office XP (2002)
fehler von mir:

Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Range("P64:R69").Sort Key1:=wks.Range("R64"), , _
Order1:=xlDescending, Header:=xlNo
Next wks
  Thema: Laufzeitfehler 1004 
Phelan XLPH

Antworten: 6
Aufrufe: 283

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 16:55   Titel: AW: Laufzeitfehler 1004 Version: Office 2007
Sub Datum_auslesen()
Dim txt As String
Dim erstellungsdatum As Date
Dim tmp As Variant
Dim zeile As Long
Dim lastRow As Long

With ThisWorkbook.Sheets("KPI_Termine")
lastRow = .Range("C65536").End(xlUp).Row

For zeile = 1 To lastRow
txt = .Cells(zeile, 3).Text
If LCase(txt) Like "druckdatum*" Then
tmp = Split(txt, ": ")(1)
erstellungsdatum = Split(tmp, " ")(0)
End If
Next zeile
.Range("F5") = erstellungsdatum
End With
End Sub


Such jetzt nach der letzten Zeile in Spalte C und nicht in H
  Thema: Sortierung in jedem Worksheet * Geht nicht 
Phelan XLPH

Antworten: 4
Aufrufe: 225

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 16:44   Titel: AW: Sortierung in jedem Worksheet * Geht nicht Version: Office XP (2002)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Range("P64:R69").Sort Key1:=Range("R64"), _
Order1:=xlDescending, Header:=xlNo
Next wks
  Thema: Drucken direkt mit Makro 
Phelan XLPH

Antworten: 6
Aufrufe: 579

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 16:32   Titel: AW: Drucken direkt mit Makro Version: Office XP (2002)
sodele:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Target.Value = "direkt" Then Drucken_1
If Target.Value = "indirekt" Then Drucken_2
End If
End Sub

Sub Drucken_1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub Drucken_2()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
  Thema: Makrofehler? WO? 
Phelan XLPH

Antworten: 4
Aufrufe: 279

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 16:28   Titel: AW: Makrofehler? WO? Version: Office 2003
Schau mal obs im Ergebnis unterschiede zu deinem hat:

Sub SoTutsEbenso()
With Sheets("1")
.Range("O29,G29").Formula = "=$R$38"
.Range("O30,G30").Formula = "=$S$38"
End With
With Sheets("3")
.Range("C35,D35").Formula = "=$H$56"
.Range("D42").Formula = "=$I$56"
.Range("D52").Formula = "='1'!$G$64"
.Range("D53").Formula = "='1'!$O$64"
.Range("D15").Value = Range("D58").Value
.Range("D15").Interior.ColorIndex = 4
End With
End Sub
  Thema: Laufzeitfehler 1004 
Phelan XLPH

Antworten: 6
Aufrufe: 283

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 16:04   Titel: AW: Laufzeitfehler 1004 Version: Office 2007
ersetze das:
txt = Cells(zei, 3)

durch das:
txt = Cells(zei, 3).Text
  Thema: Datencontainer auf neue Sheets kopieren (Dynamisch) 
Phelan XLPH

Antworten: 6
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 15:57   Titel: AW: Datencontainer auf neue Sheets kopieren (Dynamisch) Version: Office 2007
Sub HUI()
Dim c As Range
Dim rngMerk As Range
Dim firstAddress As String
Application.ScreenUpdating = False
With Worksheets("Tabelle7").Range("B:B") 'BlattName Anpassen
Set c = .Find(0, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If Not rngMerk Is Nothing Then
Worksheets.Add After:=Sheets(Sheets.Count)
Union(.Parent.Rows(rngMerk.Row & ":" & c.Row - 1), .Parent.Rows(1)).Copy _
ActiveSheet.Range("A1")
MsgBox ""
End If
Set rngMerk = c
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
End If
Worksheets.Add After:=Sheets(Sheets.Count)
Union(.Parent.Rows(rngMerk.Ro ...
  Thema: Datencontainer auf neue Sheets kopieren (Dynamisch) 
Phelan XLPH

Antworten: 6
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 15:05   Titel: AW: Datencontainer auf neue Sheets kopieren (Dynamisch) Version: Office 2007
hoi,

hier ne Möglichkeit ohne Schleife:

Sub DatenInNeueWks()
Dim rngF As Range, rng As Range
Dim SuchWert As Variant, SuchSpalte As Integer
SuchSpalte = 2: SuchWert = 0
With Tabelle1 'Anpassen
Set rng = .Range(.Cells(2, SuchSpalte), .Cells(.Cells(Rows.Count, SuchSpalte).End(xlUp).Row, SuchSpalte))
Set rngF = rng.Find(SuchWert, , xlValues, xlWhole)
If rngF Is Nothing Then Exit Sub
rng.ColumnDifferences(rngF).EntireRow.Hidden = True
Worksheets.Add After:=Sheets(Sheets.Count)
.UsedRange.SpecialCells(xlCellTypeVisible).Copy ActiveSheet.Range("A1")
.Rows.Hidden = False
End With
End Sub
  Thema: Liste anzeigen 
Phelan XLPH

Antworten: 4
Aufrufe: 276

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Jul 2009, 14:37   Titel: AW: Liste anzeigen Version: Office 2003
-Rechtsklick aus Listbox
-Eigenschaften

>>ListRange: Tabelle1!A1:B1000
>>ColumnCount: 2
 
Seite 596 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 593, 594, 595, 596, 597, 598, 599 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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