53111
Oct 17, 2007, updated at Oct 22, 2007 (UTC)
29239
6
0
VBA in Excel Schrift in bestimmter zeile Dick machen
hallo ich habe folgendes Problem ich möchte dass per vba in einer bestimmten zeile die schrift dick gemacht wird.
ich habe folgendes angefangen. das schlüsselwort ist "Gesamt:". alles in der zeile in der Gesamt steht soll dick gemacht werden?
Dim auswahl As Range
For Each auswahl In Range("A1:C51")
If cell.Value = "Gesamt:" Then
cell.Font.Bold = True
End If
Next
ich habe folgendes angefangen. das schlüsselwort ist "Gesamt:". alles in der zeile in der Gesamt steht soll dick gemacht werden?
Dim auswahl As Range
For Each auswahl In Range("A1:C51")
If cell.Value = "Gesamt:" Then
cell.Font.Bold = True
End If
Next
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 71162
Url: https://administrator.de/contentid/71162
Printed on: April 19, 2024 at 02:04 o'clock
6 Comments
Latest comment
Moin,
ich würde das so machen:
Nich tschön, aber läuft...
Gruß,
Henrik
ich würde das so machen:
Dim i%
i = 1
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End WithNich tschön, aber läuft...
Gruß,
Henrik
Hi,
muß es unbedingt VBA sein? Für solche Zwecke gibt es doch eigentlich die Bedingte Formatierung.
Also ungefähr so:
- Bereich markieren
- Menü Format -> Bedingte Formatierung
- Formel ist
- =$A1="Gesamt"
- Bei Format Fett einstellen
Psycho
muß es unbedingt VBA sein? Für solche Zwecke gibt es doch eigentlich die Bedingte Formatierung.
Also ungefähr so:
- Bereich markieren
- Menü Format -> Bedingte Formatierung
- Formel ist
- =$A1="Gesamt"
- Bei Format Fett einstellen
Psycho
das problem ist dass sich die zeile an der "Gesamt" steht immer wieder ändert? die inhalte der Tabelle werden aus einer anderen tabelle geholt?
Dim i%
i = 1
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With
hat bei mir leider nicht funktioniert? wie spreche ich denn eine andere Tabelle in der excel mappe an? glaube es hat was mit dem activesheet zu tun, dass es nicht funktioniert?
Dim i%
i = 1
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With
hat bei mir leider nicht funktioniert? wie spreche ich denn eine andere Tabelle in der excel mappe an? glaube es hat was mit dem activesheet zu tun, dass es nicht funktioniert?
Na dan machst du aus AvtiveSheet -> ActiveWorkbook.Sheets(1) für das erster usw.
ok ich habe das jetzt wie folgt gemacht:
[code]
Sub DeleteRowIfEmptyCell()
Set Bereich = Range("A1:C51")
For Each Zelle In Bereich
If Zelle.Value = "0" Then
Zelle.Value = ""
End If
Next
Dim intRow As Integer, intLastRow As Integer, letzte As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow
Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With
Sheets("Liste für Word").Select
End Sub [/code]
jetzt erscheint der fehler "400"? und es wird nichts dick gezeichnet
[code]
Sub DeleteRowIfEmptyCell()
Set Bereich = Range("A1:C51")
For Each Zelle In Bereich
If Zelle.Value = "0" Then
Zelle.Value = ""
End If
Next
Dim intRow As Integer, intLastRow As Integer, letzte As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow
Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With
Sheets("Liste für Word").Select
End Sub [/code]
jetzt erscheint der fehler "400"? und es wird nichts dick gezeichnet
Hallo saibonaut!
Bei mir läuft dieser (fast unveränderte Code) problemlos durch (zumindest hinsichtlich der Fett-Formatierung ab der Zeile "i=1" sehe ich überhaupt kein Problem):
Für welche Zeile wurde denn der Fehler angezeigt?
Allerdings wäre noch anmerken, dass natürlich auch mit "Bedingter Formatierung" (wie oben von Psycho Dad gezeigt) die Zeile "eingefettet" werden kann, da ja mit der dargestellten Formel immer der Inhalt der Spalte A geprüft wird und die Zeilennummer dabei keine Rolle spielt.
Grüße
bastla
P.S.: Zum Formatieren als Code nicht sondern <> verwenden.
Bei mir läuft dieser (fast unveränderte Code) problemlos durch (zumindest hinsichtlich der Fett-Formatierung ab der Zeile "i=1" sehe ich überhaupt kein Problem):
Sub DeleteRowIfEmptyCell()
Set Bereich = Range("A1:C51")
For Each Zelle In Bereich
If Zelle.Value = "0" Then Zelle.Value = ""
Next
Dim intRow As Integer, intLastRow As Integer, letzte As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then Rows(intRow).Delete
Next
i = 1
With ActiveWorkbook.Sheets(2)
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Font.Bold = True
End If
i = i + 1
Loop
End With
Sheets("Liste für Word").Select
End SubFür welche Zeile wurde denn der Fehler angezeigt?
Allerdings wäre noch anmerken, dass natürlich auch mit "Bedingter Formatierung" (wie oben von Psycho Dad gezeigt) die Zeile "eingefettet" werden kann, da ja mit der dargestellten Formel immer der Inhalt der Spalte A geprüft wird und die Zeilennummer dabei keine Rolle spielt.
Grüße
bastla
P.S.: Zum Formatieren als Code nicht sondern <> verwenden.
