Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 654 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 651, 652, 653, 654, 655, 656, 657 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: VBA - Hilfe 
Phelan XLPH

Antworten: 11
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 14:27   Titel: AW: VBA - Hilfe Version: Office 2003
...und ich schreib noch ANPASSEN hin. Confused 8)
  Thema: Makro zeilen kopieren/einfügen inkl. Inputbox 
Phelan XLPH

Antworten: 12
Aufrufe: 3450

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 14:24   Titel: AW: Makro zeilen kopieren/einfügen inkl. Inputbox Version: Office XP (2002)
Hallo, letzter Versuch:

Sub Test1()
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).Resize(, 10).Value = ActiveCell.Resize(, 10).FormulaR1C1
End Sub

Sub Test1b()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

Also beide laufen und es stimmen bei beiden die Bezüge.
  Thema: VBA - Hilfe 
Phelan XLPH

Antworten: 11
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 14:05   Titel: AW: VBA - Hilfe Version: Office 2003
Hallo,

Sub BlaetterZusammenfuehren()
Dim wksZ As Worksheet
Dim wksQ As Worksheet
Dim lngLZZ As Long
Dim lngLZQ As Long

Set wksZ = ThisWorkbook.Worksheets("Master") 'Anpassen
wksZ.UsedRange.ClearContents

For Each wksQ In ThisWorkbook.Worksheets
If wksQ.Name <> wksZ.Name Then
If lngLZZ = 0 Then
wksZ.Range("A1:BC4").Value = _
wksQ.Range("A1:BC4").Value
End If
lngLZQ = wksQ.Cells(wksQ.Rows.Count, 1).End(xlUp).Row
lngLZZ = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row
wksZ.Range("A" & lngLZZ + 1 & ":BC" & lngLZZ + 1).Resize(lngLZQ - 4).Value = _
wksQ.Range("A5:BC" & lngLZQ).Value
End If
Next
End Sub
  Thema: Eingabeaufforderung für mehrere Variablen gleichzeitig 
Phelan XLPH

Antworten: 2
Aufrufe: 1448

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 13:41   Titel: AW: Eingabeaufforderung für mehrere Variablen gleichzeitig Version: Office 2003
...über eine UserForm?!
  Thema: Werte einer Listbox in Labels anzeigen 
Phelan XLPH

Antworten: 4
Aufrufe: 568

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 13:35   Titel: AW: Werte einer Listbox in Labels anzeigen Version: Office 2k (2000)
Da hört meine Kompetenz auf. Ich bin in der ADO, DAO wenig bewandert. Crying or Very sad

Aber da wird sich bestimmt jemand melden und sich deinem Problem annehmen.
  Thema: Makro zeilen kopieren/einfügen inkl. Inputbox 
Phelan XLPH

Antworten: 12
Aufrufe: 3450

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 13:24   Titel: AW: Makro zeilen kopieren/einfügen inkl. Inputbox Version: Office XP (2002)
Sorry,

Sub Test1()
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).Resize(, 10).Formula = ActiveCell.Resize(, 10).Formula
End Sub

Beide Terme müssen die gleiche Eigenschaft haben.
Bei mir spielt es keine Rolle welche.
Teste jetzt mal
  Thema: Tabellenblätter durchsuchen 
Phelan XLPH

Antworten: 3
Aufrufe: 249

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 13:06   Titel: AW: Tabellenblätter durchsuchen Version: Office 2003
Hallo,

in ein SrandardModul:
Sub RKMonatZusammenfassen()
Dim wksZ As Worksheet
Dim wks As Worksheet
Dim lngI As Long

Set wksZ = ThisWorkbook.Worksheets("Monatsabrechnug")
wksZ.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
lngI = 1
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "RK *" Then
lngI = lngI + 1
wksZ.Range("A" & lngI) = wks.Name
wksZ.Range("B" & lngI & ":D" & lngI) = wks.Range("C47:E47")
End If
Next
End Sub
  Thema: Makro zeilen kopieren/einfügen inkl. Inputbox 
Phelan XLPH

Antworten: 12
Aufrufe: 3450

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 12:53   Titel: AW: Makro zeilen kopieren/einfügen inkl. Inputbox Version: Office XP (2002)
Teste mal durch, denn bei mir läufts

eines davon müsste laufen:
.Formula
.FormulaR1C1
.FormulaR1C1Local
.FormulaLocal
  Thema: Werte einer Listbox in Labels anzeigen 
Phelan XLPH

Antworten: 4
Aufrufe: 568

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 12:47   Titel: AW: Werte einer Listbox in Labels anzeigen Version: Office 2k (2000)
Hallo,

du weist ja auch immer den letzten Eintrag den Labels zu und nicht den
selectierten.

With ListBox1
If .ListIndex <> -1 Then
Label1.Caption = .List(.ListIndex, 1)
Label2.Caption = .List(.ListIndex, 0)
End If
End With
  Thema: automatische Überwachung inklusive Ausfüllen bei Bedingung 
Phelan XLPH

Antworten: 3
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 12:35   Titel: AW: automatische Überwachung inklusive Ausfüllen bei Bedingu Version: Office 2003
Hallo,

ins Codefenster der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing And Range("C5") = "Stück" Then
Dim zell As Range
For Each zell In Intersect(Target, Range("A2:A100"))
If zell <> "" Then
zell.Offset(0, 1) = 5
Else
zell.Offset(0, 1) = ""
End If
Next
End If
End Sub
  Thema: normale Formel im Textfeld einer Userform 
Phelan XLPH

Antworten: 16
Aufrufe: 1935

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 12:21   Titel: AW: normale Formel im Textfeld einer Userform Version: Office 2003
Letzter Versuch:
Private Sub UserForm_Initialize()
TextBox1.Text = WorksheetFunction.CountIf(Range("H4:H42"), "in Nutzung")
TextBox1.Locked = True
TextBox2.Text = WorksheetFunction.CountIf(Range("H4:H42"), "in Reparatur IT (027)")
TextBox2.Locked = True
TextBox4.Text = WorksheetFunction.CountIf(Range("H4:H42"), "in Reparatur Kempten")
TextBox4.Locked = True
TextBox3.Text = WorksheetFunction.CountIf(Range("H4:H42"), "in Reparatur Hersteller")
TextBox3.Locked = True
TextBox6.Text = WorksheetFunction.CountIf(Range("H4:H42"), "verschrottet")
TextBox6.Locked = True
TextBox5.Text = WorksheetFunction.CountIf(Range("H4:H42"), "Gerät nicht vorhanden")
TextBox5.Locked = True
With Worksheets("MDE Archiv")
Te ...
  Thema: Bestimmte Inhalte in Comb 
Phelan XLPH

Antworten: 3
Aufrufe: 210

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 11:24   Titel: AW: Bestimmte Inhalte in Comb Version: Office XP (2002)
Ich glaub mit der ImageBox müsste es gehen... aber ich würds auch lassen
  Thema: normale Formel im Textfeld einer Userform 
Phelan XLPH

Antworten: 16
Aufrufe: 1935

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 11:22   Titel: AW: normale Formel im Textfeld einer Userform Version: Office 2003
Hallo,

Private Sub UserForm_Initialize()
With Worksheets("Tabelle1")
TextBox1.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "in Nutzung")
TextBox1.Locked = True
TextBox2.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "in Reparatur IT (027)")
TextBox2.Locked = True
TextBox4.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "in Reparatur Kempten")
TextBox4.Locked = True
TextBox3.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "in Reparatur Hersteller")
TextBox3.Locked = True
TextBox6.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "verschrottet")
TextBox6.Locked = True
TextBox5.Text = WorksheetFunction.CountIf(.Range("H4:H42"), "Gerät nicht vorhanden&qu ...
  Thema: Neuer Kunde 
Phelan XLPH

Antworten: 5
Aufrufe: 233

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 11:17   Titel: AW: Neuer Kunde Version: Office 2003
8)
  Thema: Messwerte mit dem Meßschieber im zickzack in der Tabelle ein 
Phelan XLPH

Antworten: 4
Aufrufe: 1132

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Apr 2009, 11:00   Titel: AW: Messwerte mit dem Meßschieber im zickzack in der Tabelle Version: Office 2k (2000)
werden die Messdaten nach und nach eingetragen zeitlich versetzt oder
bekommst du sie alle auf einen Schlag?
 
Seite 654 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 651, 652, 653, 654, 655, 656, 657 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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