Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 692 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 689, 690, 691, 692, 693, 694, 695 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Tabellen zu einer „Mastertabelle“ zusammenführen?!?! 
Phelan XLPH

Antworten: 4
Aufrufe: 279

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 10:16   Titel: AW: Tabellen zu einer „Mastertabelle“ zusammenführen?!?! Version: Office 2k (2000)
hallo,

ist der TabellenName des TabellenBlattes 5 der Dateien immer gleich oder ist
er immer an der selben Position?
  Thema: mehrere Instanzen aus einer Excel-Vorlage erzeugen 
Phelan XLPH

Antworten: 3
Aufrufe: 390

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 09:49   Titel: AW: mehrere Instanzen aus einer Excel-Vorlage erzeugen Version: Office 2003
Hallo,

wo stehen die Anzahl und die Dateinamen? (Datei,Blatt,Zelle)
  Thema: Wie erzeuge ich geschweifte Klammern {} per VBA? 
Phelan XLPH

Antworten: 3
Aufrufe: 2583

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 09:37   Titel: AW: Wie erzeuge ich geschweifte Klammern {} per VBA? Version: Office 2003
Hallo,
...mach mal ne Aufzeichnung!
  Thema: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + Enter 
Phelan XLPH

Antworten: 8
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 09:34   Titel: AW: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + En Version: Office 2003
Danke Peter,

...das Wetter trüb....meine Augen auch 8) ...sollte mal die Sonnebrile abnehmen
damit ich mehr sehe
  Thema: Farbe in Zellen 
Phelan XLPH

Antworten: 11
Aufrufe: 328

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 09:25   Titel: AW: Farbe in Zellen Version: Office 2007
Ist denn A1 farblich hinterlegt, und wenn ab J1 eine Zahl eingetragen
dann nimmt diese Zelle die Farbe von A1 an...hab ich das so richtig
verstanden?
  Thema: Linien ausrichten 
Phelan XLPH

Antworten: 14
Aufrufe: 1236

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 09:18   Titel: AW: Linien ausrichten Version: Office 2003
Hallo,
...sorry konnte auch nicht funktionieren. Hab den
Code oben abgeändert. ZahlEingabe(Gradzahl) in [A1]!
  Thema: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + Enter 
Phelan XLPH

Antworten: 8
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 08:52   Titel: AW: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + En Version: Office 2003
Hallo Thomas,

was ist denn jttzt an der Formel anders?
  Thema: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + Enter 
Phelan XLPH

Antworten: 8
Aufrufe: 1823

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 00:51   Titel: AW: Formel mit VBA eintragen-Ergebniss erst da, nach F2 + En Version: Office 2003
Hallo,

Range("B65536").End(xlUp).Offset(0, 11).FormulaR1C1 = "=VALUE(TEXT(R3C9,""JJJJ""))"
  Thema: Tabellenblätter vergleichen (Spalte A bis I) 
Phelan XLPH

Antworten: 5
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 01. Apr 2009, 00:43   Titel: AW: Tabellenblätter vergleichen (Spalte A bis I) Version: Office 2003
Hallo,

in ein StandardModul, wichtig verwechsle Tab1 mit Tab2 nicht!

Sub Abgleich()
Dim wksQ1 As Worksheet
Dim wksQ2 As Worksheet
Dim wksZ As Worksheet
Dim lngLZQ1 As Long
Dim lngLZQ2 As Long
Dim lngLZZ As Long
Dim zell1 As Range
Dim zell2 As Range
Dim bolExist As Boolean

Set wksQ1 = Worksheets("Tabelle1") 'TAB1 ggf. Anpassen
Set wksQ2 = Worksheets("Tabelle2") 'TAB2 ggf. Anpassen
Set wksZ = Worksheets("Tabelle3") 'ZielTabelle ggf. Anpassen

lngLZQ1 = wksQ1.Cells(wksQ1.Rows.Count, 1).End(xlUp).Row
lngLZQ2 = wksQ2.Cells(wksQ2.Rows.Count, 1).End(xlUp).Row


wksZ.Cells.Clear
For Each zell2 In wksQ2.Range("A2:A" & lngLZQ2)
For Each zell1 In wksQ1.Range("A2:A" & lngLZQ1)
If wksQ1.Range("A" & zell1.Row) = wksQ2.Range("A" & zell2.Row) And _
wksQ1.Range& ...
  Thema: VBA Verzweiflung (suchen, import, sortieren, ....) 
Phelan XLPH

Antworten: 4
Aufrufe: 415

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 23:55   Titel: AW: VBA Verzweiflung (suchen, import, sortieren, ....) Version: Office 2003
Hallo,

in ein StandardModul:

Sub GruppSummieren()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngLZQ As Long
Dim lngLZZ As Long
Dim zell As Range
Dim Dic As Object
Dim keyD As Variant

Set Dic = CreateObject("Scripting.Dictionary")
Set wksQ = Worksheets("Tabelle1") 'QuellTabelle ggf. Anpassen
Set wksZ = Worksheets("Tabelle2") 'ZielTabelle ggf. Anpassen

lngLZQ = wksQ.Cells(wksQ.Rows.Count, 2).End(xlUp).Row


For Each zell In wksQ.Range("B1:B" & lngLZQ)
If zell <> "" Then
Dic(zell.Value & ";" & zell.Offset(0, 4).Value) = _
Dic(zell.Value & ";" & zell.Offset(0, 4).Value) + zell.Offset(0, 8).Value
End If
Next

wksZ.Cells.ClearContents
For Each keyD In Dic.Keys
Debug.Print keyD
wksZ.Cells(lngLZZ + 1, 1) = Split(keyD, ...
  Thema: Formeln in Arbeitsblätter schützen 
Phelan XLPH

Antworten: 11
Aufrufe: 322

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 21:49   Titel: AW: Formeln in Arbeitsblätter schützen Version: Office 2003
Hallo,

da bin ich mit meinem Latein am Ende, vielleicht kann dir einer der Profs
helfen. Sorry Crying or Very sad
  Thema: Farbe in Zellen 
Phelan XLPH

Antworten: 11
Aufrufe: 328

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 21:47   Titel: AW: Farbe in Zellen Version: Office 2007
Hallo,

Tausch mal deinen Code durch diesen, und gib mal "AB", "CD","EF",...ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zell As Range
Dim rngBereich As Range
Dim wks As Worksheet
Dim intFarbe As Integer

Set wks = ActiveSheet

Set rngBereich = wks.Range("A1", _
wks.Cells.SpecialCells(xlCellTypeLastCell))

For Each zell In rngBereich
Select Case zell.Value
Case "AB": intFarbe = 3
Case "CD": intFarbe = 4
Case "EF": intFarbe = 5
Case "GH": intFarbe = 6
Case "IJ": intFarbe = 7
Case "KL": intFarbe = 8
Case "MN": intFarbe = 43
Case "OP": intFarbe = 44
Case "QR": intFarbe = 45
Case &qu ...
  Thema: Excel-Tabelle nach Wert durchsuchen und Zeile kopieren 
Phelan XLPH

Antworten: 10
Aufrufe: 8889

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 15:03   Titel: AW: Excel-Tabelle nach Wert durchsuchen und Zeile kopieren Version: Office 2003
Hallo,

jetzt überträgts nur die Werte Smile
Sub DatenInExtraBlatt()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngLZQ As Long
Dim lngLSQ As Long
Dim lngLZZ As Long
Dim zell As Range
Dim Dic As Object
Dim keyD As Variant

Set Dic = CreateObject("Scripting.Dictionary")
Set wksQ = Worksheets("Tabelle1") 'ggf. ANPASSEN

For Each wksZ In Worksheets
Dic(wksZ.Name) = ""
Next

lngLZQ = wksQ.Cells(wksQ.Rows.Count, 3).End(xlUp).Row '3=SpalteC
lngLSQ = wksQ.Cells(1, wksQ.Columns.Count).End(xlToLeft).Column '1=Zeile1

For Each zell In wksQ.Range("C2:C" & lngLZQ)
If zell.Value <> "" Then
If Not Dic.Exists(zell.Value) Then
Dic(zell.Value) = "clear"
Set wksZ = Worksheets.Add(After:=Sheets(Sheets.Count))
wksZ.Name = zell.Value
Els ...
  Thema: immer 1 Zelle weiter rechts von gefundenem Wert 
Phelan XLPH

Antworten: 15
Aufrufe: 807

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 14:47   Titel: AW: immer 1 Zelle weiter rechts von gefundenem Wert Version: Office 2003
Hallo,

hier mal ein Beispiel, nehme an deine Daten sin so aufgebaut.
  Thema: Bereich mit faktor berechnen und woanders einfügen 
Phelan XLPH

Antworten: 3
Aufrufe: 856

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. März 2009, 14:31   Titel: AW: Bereich mit faktor berechnen und woanders einfügen Version: Office 2003
Hallo,

Sub SpalteMultiply()
Dim rngQ As Range
Dim rngZ As Range

Set rngQ = Range("E12", Range("E" & Rows.Count).End(xlUp))
Set rngZ = Range("G12")

rngQ.Copy
rngZ.Resize(rng.Rows.Count) = 4
rngZ.Resize(rng.Rows.Count).PasteSpecial Operation:=xlMultiply
Application.CutCopyMode = False
End Sub
 
Seite 692 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 689, 690, 691, 692, 693, 694, 695 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage