Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 745 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 742, 743, 744, 745, 746, 747, 748 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Letzten Eintrag in einer Zelle suchen 
Phelan XLPH

Antworten: 1
Aufrufe: 428

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 11:51   Titel: AW: Letzten Eintrag in einer Zelle suchen Version: Office 2003
versuch mal dies:
Cells.SpecialCells(xlCellTypeLastCell).Row
  Thema: Macro um Kombinationen zu erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 2963

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 11:48   Titel: AW: Macro um Kombinationen zu erstellen Version: Office 2007
Und wie mache ich das mit variabler anzahl der Elemente und
noch wichtiger variable Anzahl der Elemente pro Gruppe?

Habs mit Rekursion der sub probiert aber ab 2ElementproGruppe gescheitert.
  Thema: UserForm zum suchen von Reiseleitern, ausg. auf Userform 
Phelan XLPH

Antworten: 19
Aufrufe: 1000

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 11:40   Titel: AW: UserForm zum suchen von Reiseleitern, ausg. auf Userform Version: Office XP (2002)
wie mache ich das händisch?

Wie kommt man bloß an solche info -> nix im Objektkatalog
nur DisplayPageBraeke!?
  Thema: Vergleich von Werten in zwei Dateien 
Phelan XLPH

Antworten: 6
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 11:30   Titel: AW: Vergleich von Werten in zwei Dateien Version: Office 2003
Siehe oben.
  Thema: UserForm zum suchen von Reiseleitern, ausg. auf Userform 
Phelan XLPH

Antworten: 19
Aufrufe: 1000

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 11:13   Titel: AW: UserForm zum suchen von Reiseleitern, ausg. auf Userform Version: Office XP (2002)
Das ist der Druckbereich der festgelegt wird.

Habs auch noch nicht rausgefunden wie man den wieder entfernt.
  Thema: Datensicherung, Sheet kopieren, Namen vorschlagen 
Phelan XLPH

Antworten: 8
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 10:52   Titel: AW: Datensicherung, Sheet kopieren, Namen vorschlagen Version: Office XP (2002)
hat jetzt aber nix mit dem Code zu tun,Oder?

Da öffnest du eine Mappe mit Verknüpfungen die einen Verweis auf andere
Datei/en (Mappe/n) haben, von dieser er dann Daten bezieht

Beim Aktualisieren denke ich musst du die Datei, auf die verwiesen wird, öffnen.
Dann werden die Daten in deiner ZielDatei aktualisiert.

Hab mich damit auch noch nicht so beschäftigt, probiers einfach aus!
  Thema: UserForm zum suchen von Reiseleitern, ausg. auf Userform 
Phelan XLPH

Antworten: 19
Aufrufe: 1000

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 10:24   Titel: AW: UserForm zum suchen von Reiseleitern, ausg. auf Userform Version: Office XP (2002)
Welche Trennlinien und wo sind diese? Genauer Confused
  Thema: Vergleich von Werten in zwei Dateien 
Phelan XLPH

Antworten: 6
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 10:18   Titel: AW: Vergleich von Werten in zwei Dateien Version: Office 2003
bin wieder da Very Happy

ins StandardModul der Datei2:

Sub Vergleich()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim Pfad As String
Dim Dic As Object
Dim lngI As Long
Dim lngLZQ As Long
Dim lngLZZ As Long

Pfad = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
If Pfad = "Falsch" Then Exit Sub

Workbooks.Open Pfad, 0

Set wksQ = ThisWorkbook.Worksheets("Tabelle1") 'ANPASSEN
Set wksZ = ActiveWorkbook.Worksheets("Tabelle1") 'ANPASSEN
Set Dic = CreateObject("Scripting.Dictionary")

lngLZQ = wksQ.Cells(wksQ.Rows.Count, 3).End(xlUp).Row
For lngI = 2 To lngLZQ
Dic(wksQ.Cells(lngI, 3) & wksQ.Cells(lngI, 4)) = wksQ.Cells(lngI, 2)
Next

lngLZZ = wksZ.Cells(wksZ.Rows.Count, 1).End(xlUp).Row
For lngI = 2 To lngLZZ
If Dic.Exists(wksZ.Cells(lngI, 1) & wksZ.Cells(lngI, 2& ...
  Thema: Vergleich von Werten in zwei Dateien 
Phelan XLPH

Antworten: 6
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 09:49   Titel: AW: Vergleich von Werten in zwei Dateien Version: Office 2003
Du möchtest aus einer dritten Datei das makro starten?
Wieso nicht aus einer der Beiden z.B (zB Sammeldatei) und dann muss man nur
noch die andere öffnen zum vergleichen?
  Thema: Fragen zur Input-Box 
Phelan XLPH

Antworten: 12
Aufrufe: 547

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 09:24   Titel: AW: Fragen zur Input-Box Version: Office 2003
Moin,

das komische ist ja dass es teilweise funzt...aber
hab grad was rausgefunden.

Da er die zeilen kopiert, kopiert er nur die sichtbaren Zeilen.

Daher werden manche kopiert und manche nicht.

Hast du vielleicht Zeilen ausgeblendet oder einen Filter drin??

Absteigend oder austeigend sortieren...spielt keine Rolle!
  Thema: Automatisches Spaltenausblenden bei Excel nach dem Filtern 
Phelan XLPH

Antworten: 8
Aufrufe: 321

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 09:11   Titel: AW: Automatisches Spaltenausblenden bei Excel nach dem Filte Version: Office 2007
moin,

ist denn die Tabelle so wie oben angezeigt angeordnet?

hast du den Code ins Codefenster deiner Tabelle ???
  Thema: Makrorecording -> leerer Inhalt 
Phelan XLPH

Antworten: 1
Aufrufe: 159

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 08:20   Titel: Makrorecording -> leerer Inhalt Version: Office 2007
Guten Morgen,

Das ist alles was ich erhalte wenn eine Aufzeichnung mache
vom Einfügen und bearbeiten einer Rechteckform(egal welche Form):

Sub Makro6()
'
' Makro6 Makro
'

'
End Sub

Muss ich jetzt damit leben, ist das jetzt so bei Office2007,
gibts da vielleicht ein SP oder irgendeine andere Möglichkeit um an die
Informationen ranzukommen wie die Objekte heißen (außer der Hilfe).

Der Recorder gab mir immer die Info wie die Objekte heißen, mit denen ich mich
dann in der Hilfe auseinandergesetzt habe.

Wenn ich nicht weiss wie das Objekt heißt, kann ich auch nichts weiter in
Erfahrung bringen.

Blöd sowas....muss mir alles selber zusammensuchen und ausprobieren,
ist sehr zeitaufwendig!!!

Da gibts doch bestimmt ne Möglichkeit???

Weiß da jemand was? Danke schon mal...
  Thema: Kommentare auslesen und in sep. Arbeitsblatt eintragen 
Phelan XLPH

Antworten: 31
Aufrufe: 3474

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 01:35   Titel: AW: Kommentare auslesen und in sep. Arbeitsblatt eintragen Version: Office 97
so nochmal

abgeänderter code ins StandardModul:

Sub KommentareAuslesen()
Dim wks As Worksheet
Dim wksZ As Worksheet
Dim zell As Range
Dim strSuchText As String
Dim intSuchSpalte As Integer

Application.ScreenUpdating = False

On Error GoTo fehler

Set wksZ = Worksheets("Auswertung") 'Anpassen
strSuchText = Worksheets("Auswertung").Range("A1")
intSuchSpalte = Worksheets("Auswertung").Range("B1")
If intSuchSpalte = 0 Then
intSuchSpalte = 1
Worksheets("Auswertung").Range("B1") = intSuchSpalte
End If

wksZ.UsedRange.Offset(1, 0).Delete xlShiftUp

For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wksZ.Name Then
For Each zell In wks.Range(wks.Cells(1, intSuchSpalte), wks.Cells(wks.Cells.SpecialCells(xlCellTypeLastCell).Row, intSuchSpalte))
If Not z ...
  Thema: Datensicherung, Sheet kopieren, Namen vorschlagen 
Phelan XLPH

Antworten: 8
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 01:09   Titel: AW: Datensicherung, Sheet kopieren, Namen vorschlagen Version: Office XP (2002)
Probier mal:

Sub BlattAlsMappe()
Dim wkbQ As Workbook
Dim wkbZ As Workbook
Dim intI As Integer
Dim minDatum As Date
Dim maxDatum As Date

Set wkbQ = ThisWorkbook
Set wkbZ = Workbooks.Add(xlWBATWorksheet)
wkbZ.Worksheets(1).Name = "0"

minDatum = WorksheetFunction.Min(wkbQ.Worksheets("Tabelle1").UsedRange.Columns(1))
maxDatum = WorksheetFunction.Max(wkbQ.Worksheets("Tabelle1").UsedRange.Columns(1))

For intI = 1 To wkbQ.Worksheets.Count
If intI = 1 Or intI >= 5 Then
wkbZ.Worksheets.Add After:=Sheets(Sheets.Count)

wkbZ.Worksheets(Sheets.Count).Name = _
wkbQ.Worksheets(intI).Name

wkbQ.Worksheets(intI).Cells.Copy _
wkbZ.Worksheets(Sheets.Count).Cells
End If
Next
Application.DisplayAlerts = False
wkbZ.Worksheets(1).Delete
Application.Display ...
  Thema: Datensicherung, Sheet kopieren, Namen vorschlagen 
Phelan XLPH

Antworten: 8
Aufrufe: 397

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Feb 2009, 00:22   Titel: AW: Datensicherung, Sheet kopieren, Namen vorschlagen Version: Office XP (2002)
Ist das eine einmalige sache...weil dann lohnt sich das nicht!
 
Seite 745 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 742, 743, 744, 745, 746, 747, 748 ... 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