Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 227 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 224, 225, 226, 227, 228, 229, 230 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Excel VBA - Leere Zellen mit Inhalt aus obiger füllen 
Phelan XLPH

Antworten: 6
Aufrufe: 2881

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 21:45   Titel: AW: Excel VBA - Leere Zellen mit Inhalt aus obiger füllen Version: Office 2007
Versuchs hiermit:

Sub Auffüllen()
With Tabelle1
With .Range("F:F")
With Intersect(.ColumnDifferences(.Find("")).EntireRow, .Parent.UsedRange).SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C"
.Parent.UsedRange.Copy
.Parent.UsedRange.PasteSpecial xlPasteValues
.Select
Application.CutCopyMode = False
End With
End With
End With
End Sub
  Thema: Eingabeabhängikeiten von mehreren Zellen zueinander 
Phelan XLPH

Antworten: 4
Aufrufe: 153

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 21:18   Titel: AW: Eingabeabhängikeiten von mehreren Zellen zueinander Version: Office 2010
Ins Code-Fenster der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ENDE
Application.EnableEvents = False
With Range("A1,D1,G1,J1")
If Not Intersect(Target, .Cells) Is Nothing Then
If WorksheetFunction.CountA(Intersect(Target, .Cells)) Then
.Cells.Value = Empty
Intersect(Target, .Cells).Cells(1).Value = "X"
ElseIf WorksheetFunction.CountA(.Cells) = 0 Then
Range("A4,D4,G4,J4") = Empty
End If
End If
End With
With Range("A4,D4,G4,J4")
If Not Intersect(Target, .Cells) Is Nothing Then
If WorksheetFunction.CountA(Range("A1,D1,G1,J1")) Then
If WorksheetFunction.CountA(Intersect(Target, .Cells)) Then
.Cell ...
  Thema: Excel 2010 => CSV import => Aktualsierung 
Phelan XLPH

Antworten: 1
Aufrufe: 1414

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 19:52   Titel: AW: Excel 2010 => CSV import => Aktualsierung Version: Office 2010
Sub CSV_Import()
Dim vntPfad As Variant
Dim sTxt As String
Dim i As Integer

vntPfad = Application.GetOpenFilename(fileFilter:="Text Dateien (*.csv), *.csv", MultiSelect:=True)
If Not IsArray(vntPfad) Then Exit Sub

For i = 1 To UBound(vntPfad)
Open vntPfad(i) For Input As #1
sTxt = sTxt & Replace(Input(LOF(1), #1), ",", vbTab)
Close #1
Next

Call CLP_Schreiben(sTxt)

With Tabelle1
.UsedRange.Clear
.Paste .Range("A1")
End With
End Sub

Public Sub CLP_Schreiben(sText As String)
Dim IE As Object
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", "" & sText
Set IE = Nothing
End Sub
  Thema: Private Sub per Call oeffnen 
Phelan XLPH

Antworten: 6
Aufrufe: 308

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 19:24   Titel: AW: Private Sub per Call oeffnen Version: Office 2003
Das ist doch was du suchst oder nicht?
  Thema: Export in txt 
Phelan XLPH

Antworten: 9
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 19:07   Titel: AW: Export in txt Version: Office 2010
Dann enthält ein Zellwert mehr Zeichen als von dir begrenzt.

Ändere folgende Code-Zeile:
If vntAnzZeichen(k - 1) - Len(ar(i, k)) > 0 Then

Jetzt siehst du dass in der txt das Format zerschossen wird wegen
oben genanntem Grund.
  Thema: Bedingte Formatierung 
Phelan XLPH

Antworten: 2
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 18:51   Titel: AW: Bedingte Formatierung Version: Office 2007
Dann hast du bereits ein Worksheet_Change in dem Modul.
  Thema: Private Sub per Call oeffnen 
Phelan XLPH

Antworten: 6
Aufrufe: 308

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 18:46   Titel: AW: Private Sub per Call oeffnen Version: Office 2003
Such in der VBA-Hilfe nach Option Private-Anweisung.

Lies dir das durch.
  Thema: Ersten Buchstaben in der Zelle automatisch groß schreiben 
Phelan XLPH

Antworten: 7
Aufrufe: 706

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 18:39   Titel: AW: Ersten Buchstaben in der Zelle automatisch groß schreibe Version: Office 2003
Frage an mich selber und Aussage an dich.

Sub Gross_2()
Dim rngC As Range
For Each rngC In Range("B4:H32")
rngC = WorksheetFunction.Proper(rngC)
Next
End Sub

Die Schleife durchläufte alle Zellen im Bereich [B4:H32] und
wandelt alle Wörter um.

[C1] bleibt unberührt.
  Thema: Export in txt 
Phelan XLPH

Antworten: 9
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 18:36   Titel: AW: Export in txt Version: Office 2010
Bei einer großen Menge von daten nimmst du den Code:

Sub txt_Exp_3()
Dim vntPfad As Variant
Dim sTxt As String
Dim vntAnzZeichen() As Variant
Dim rng As Range

vntPfad = Application.GetSaveAsFilename(fileFilter:="Text Dateien (*.txt), *.txt")
If VarType(vntPfad) = 11 Then Exit Sub

vntAnzZeichen = Array(3, 14, 13, 13, 8, 4, 9, 1, 2, 1, 1, 1, 2, 1, 1)

With Tabelle1
Set rng = Intersect(.UsedRange, .Range("I4:W" & .Rows.Count))
End With

With Worksheets.Add
.Range("A1").Resize(, UBound(vntAnzZeichen) + 1) = vntAnzZeichen
With .Range("A2").Resize(rng.Rows.Count, rng.Columns.Count)
.Formula = "=IF(A$1-LEN(" & rng.Parent.Name & "!I4)>-1,REPT("" ...
  Thema: Export in txt 
Phelan XLPH

Antworten: 9
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 18:01   Titel: AW: Export in txt Version: Office 2010
Hallo Johannes80,

Sub txt_Exp()
Dim vntPfad As Variant
Dim ar As Variant
Dim sTxt As String
Dim i As Long
Dim k As Integer
Dim vntAnzZeichen() As Variant


vntPfad = Application.GetSaveAsFilename(fileFilter:="Text Dateien (*.txt), *.txt")
If VarType(vntPfad) = 11 Then Exit Sub

vntAnzZeichen = Array(3, 14, 13, 13, 8, 4, 9, 1, 2, 1, 1, 1, 2, 1, 1)

With Tabelle1
ar = Intersect(.UsedRange, .Range("I4:W" & .Rows.Count))
End With

For i = 1 To UBound(ar)
For k = 1 To UBound(ar, 2)
If vntAnzZeichen(k - 1) - Len(ar(i, k)) Then
ar(i, k) = String(vntAnzZeichen(k - 1) - Len(ar(i, k)), " ") & ar(i, k)
...
  Thema: Ersten Buchstaben in der Zelle automatisch groß schreiben 
Phelan XLPH

Antworten: 7
Aufrufe: 706

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 17:19   Titel: AW: Ersten Buchstaben in der Zelle automatisch groß schreibe Version: Office 2003
Wozu poste ich den Code?!
  Thema: Zeit aus Datum auslesen, wie? 
Phelan XLPH

Antworten: 1
Aufrufe: 150

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 17:15   Titel: AW: Zeit aus Datum auslesen, wie? Version: Office 2007
Hallo,

.Cells(2, 2) = CDate(Fix(.Cells(10, 10)))
.Cells(2, 3) = CDate(.Cells(10, 10) - Fix(.Cells(10, 10)))
.Cells(2, 3).NumberFormat = "hh:mm"
  Thema: mehrere Tabellenblätter mit Diagrammen exportieren 
Phelan XLPH

Antworten: 3
Aufrufe: 140

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 13:44   Titel: AW: mehrere Tabellenblätter mit Diagrammen exportieren Version: Office 2007
Sub TABs_Export()
Dim vntBlaetter As Variant
Dim sPfad As String
Dim ws As Worksheet

sPfad = Worksheets("Tabelle1").Range("M7")

vntBlaetter = Array("Tabelle2", "Tabelle3", "Tabelle4")
Sheets(vntBlaetter).Copy
With ActiveWorkbook
For Each ws In .Worksheets
With ws.UsedRange
.Value = .Value
End With
Next
On Error GoTo ENDE
Application.DisplayAlerts = False
.SaveAs sPfad, xlNormal
.Close False
End With
ENDE:
Application.DisplayAlerts = True
End Sub
  Thema: Array Wertebestimmung bei Datenimport 
Phelan XLPH

Antworten: 25
Aufrufe: 1892

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2011, 13:25   Titel: AW: Array Wertebestimmung bei Datenimport Version: Office 2003
Hiermit
With ActiveSheet.QueryTables.Add

fügst du jedesmal eine neu Verknüpfung hinzu.

Das brauchst du aber nicht. Es langt eine und diese wird dann aktualisiert
mit den vom Benutzer (OG,UG) angegebenen Spalten.
  Thema: Autofill 
Phelan XLPH

Antworten: 2
Aufrufe: 325

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Nov 2011, 20:48   Titel: AW: Autofill Version: Office 2007
Im Reiter Formel Berechnung zurück auf Automatisch stellen.
 
Seite 227 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 224, 225, 226, 227, 228, 229, 230 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln